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EDITORIAL 



Siempre fieles a nuestra consigna de atender 
las sugerencias de nuestros lectores, MSX 
EXTRA quiere una vez más complacer a cuantos 
han hecho de nuestro estándar un modo de 
entretenimiento y reflexión. Por ello en breve, 
paralelamente a nuestra revista, vamos a editar 
una serie de números especiales que tratarán de 
temas específicos del MSX. Nuestro propósito al 
publicar esta serie de revistas es, entre otros, la 
posibilidad de abaratar cierto tipo de 
información que hasta la fecha sólo era 
accesible en los libros que como todos sabéis 
resultan más caros, debido a una serie de 
factores de tipo editorial en los que incide de 
forma definitiva la tirada de los mismos. El 
primer especial de esta serle va a estar dedicado 
al CODIGO MAQUINA, herramienta de trabajo 
para la programación de un valor muy 
estimable ya que, gracias a ella, puede ahorrarse 
gran cantidad de memoria de usuario. 
Oportunamente y desde las páginas de esta 
revista anunciaremos la aparición de estos 
especiales que, no dudamos, resultarán de gran 
interés y ayuda para cuantos usuarios quieran 
adentrarse en el mundo intrincado de la 
programación. Por ello rogamos a los 
interesados estén atentos a nuestras páginas 
desde las que, como hemos dicho, advertiremos 
de la aparición de estos especiales que, por otra 
parte y como es costumbre de nuestra 
publicación, van a salir a un precio realmente 
interesante. 

Los temas que abordaremos estarán 
directamente relacinados con la programación 
y con el mejor aprovechamiento de las 
posibilidades de la máquina, a fin de que el 
usuario encuentre en ella un medio inestimable 
de ayuda en sus labores cotidianas. 

Esta idea de lanzar números monográficos a 
bajo costo, forma parte de nuestra política 
editorial de popularizar un estándar racional 
como lo es el MSX. Al mismo tiempo y coherente 
con el fin de llegar a la mayor cantidad de 
lectores posibles, nuestro estilo periodístico 
seguirá siendo decir que no se usen aquellos 
indispensables debidamente aclarados para el 
lector no iniciado. 

Todo esto es posible no sólo por nuestras 
intenciones, sino tamién por el extraordinario 
apoyo que venimos recibiendo de todos vosotros. 
Una vez más gracias. 



Input 



«WOHAAUI TRUCO 

En el n.° 14, en la sección 
«Trucos del Programador» sa- 
lló uno excelente para dibujar 
punto a punto. Sin embargo 
hay un pequeño problema al 
darle la última coordenada ya 
que nos da el final del progra- 
ma con los . mismos valores 
que le otorgamos a X e Y. Res- 
petando los derechos de autor 
le he introducido las siguien- 
tes modificaciones: 

55 ÜE Al = 
TREN 50 ELSE 60 

140IFAI = 
"P"THEN GOTO 200 

La línea 66 nos permite ha- 
cer los 90 puntos como nos in- 
dica el programa. La 140 nos 
permite realizar la cadena co- 
rrespondiente a DRAW aun- 
que no hubiésemos llegado a 
los 90 puntos. 

Mar c el Folch Abolla 
Montblanc (Tarragona) 

Muchos lectores, nosotrosy, 
en especiad Antonio Montes 
García, valoramos tu colabo- 
ración. Gracias. 



VOLCADO DE PANTALLA 



Tengo una impresora Phi- 
lips VW 0030 y podrán imagi- 
nar la alegría que me dieron al 
Incluir en MSX EXTRA un pro- 
grama para copiar gráficos. 
Me ha gustado sobre todo la ra- 
pidez con que los ejecuta. Pero 
he encontrado un problema y 
es que los gráficos me los copia 
al revés y pienso que para Vds. 
será fácil resolver esto. 

J. J. Catalán Rosillo 
Fuenlabrada (Madrid) 

Según Rubén Jiménez, autor 
del aitículo y el programa so- 
bre el 'Volcado depant&lla», ni 
tú ni el programa han cometi- 
do ningún error. Sencillamen- 
te el programa funciona tal 
como nos indicas, es decir, que 
las pantallas gráñeas se co- 
pian en el BenUdo longitudinal 
o lo que es lo mismo giradas 
90° a la Izquierda, de acuerdo 
con la explicación que dába- 
mos en el artículo. La razón es 
la siguiente: 

1-Que la copia es mucho 
mas ñel a la pantalla, ya que 
los caracteres de la impresora 
son mas altos que anchosylos 
de la pantalla mas anchos que 
altos. 

Z-Por razones de velocidad, 
ya que la impresora admite los 
caracteres gráficos girados 
90° a la izquierda, no necesi- 
tándose hacer transformacio- 
nes bit a bit. 

Poseo un Spectravídeo 728 y 
una Impresora SeUtosha SP- 
800, que no es MSX, pero que 



no había tenido hasta ahora 
problemas de compatibilidad 
con el ordenador. Sin embargo, 
al hacer el programa de volca- 
do de pantalla no lo ejecuta co- 
rrectamente. 

Oscar Moreno Bassart 
Pamplona 
Los problemas derivan del 
hecho de que la impresora no 
tiene los mismos caracteres 
que las del sistema MSX, de 
modo que su compatibilidad 
para el volcado de pantalla hay 
que lograrla adecuando el pro- 
grama según las rutinas de 
impresión de caracteres de la 
impresora y que podrás reali- 
zar de acuerdo con el manual. 
Cualquiera sea el resultado 
nos gustará conocerlo. Suerte. 



INSTRUCCIONES CLABAS 



He comprado eljuego «Caza- 
fantasmas » de Actl visión y me 
encuentro con un problema 
muy Berlo, ya que las instruc- 
ciones están en inglés. ¿Les 
costaría mucho darlas en cas- 
tellano? 

Pedro Ramón Madueño 
Cantabria 

Tengo el « C&zaf antasmas » 
de Activlsion y me gustaría 
que me aclararan lo siguiente: 

1- Cuando comienza eljuego 
en una de las opciones que te 
dan te piden un número de 
cuenta bancaria, pero por más 
que lo intento no consigo dar 
con ella, 

2- Como se consigue y cuan- 
do se utiliza la «carnada» para 
fantasma, ya que las Instruc- 
ciones son confusas. 

Francisco Camer 
Nájera 

Transmitimos la queja de 
Pedro Ramón y muchos otros 
lectores a aquellas casas im- 
portadoras de software de jue- 
gos que los comercializan con 
las instrucciones sin traducir 
al castellano. En cuando a 
Francisco, le comunicamos 
que el número de cuenta ban- 
caria sólo se da en caso de te- 
ner dinero, cosa que se consi- 
gue después de haberlo gana- 
do, es decir después de haber 
hecho buen negocio con la 
caza de fantasmas. La carnada 
se compra al principio y es un 
elemento imprecindible para 
atraer al fantasma hacia, la 
trampa. 



Output 



¿Es verdad que los ordena- 
dores Sony HB10XP y Mitsu- 
bishi ML-FX2 pueden traba- 
jar, al conectarlos, con los len- 
guajes Basle MSX, Máquina, 
Ensamblador, Logo y Pascal? 

José reo. Giménez Gómez 
Molina de Segura (Murcia) 

No sólo Jos modelos que 
mencionas, sino todos los apa- 
ratos de Ja norma MSX pueden 
trabajar con los lenguajes 
Logo, Pascal, Ensamblador, 
Máquina, etc. Los tres prime- 
ros necesitan un sofware, que 
se provee tanto en cartucho 
como en cassette. 



He hecho las correcciones 
que sugieren en este progra- 
ma, pero la rana no me salta 
nada más que un paso y los co- 
ches, culebras, etc. se paran. 
He comprobado con el Test de 
Listado, pero no encuentro el 

Tino 

Asturias 

Te sugerimos que revises 
muy bien la línea 390 y todas 
aquellas que lleven la instruc- 
ción PLAY, pues hay «eles» mi- 
núsculas que pueden ser con- 
fundidas por «unos». También 
hay «oes» minúsculas que no 
deben confundirse con «ce- 
ros». Fíjate que las «eles» mi- 
núsculas tienen un pie, que las 
diferencia de los «unos». 



HAGAMOS KUSICA 



He comprado en una tienda 
de números atrasados el n.°l y 
he tecleado el programa «Ha- 
gamos Música» y me sale, des- 
pués de pulsar P6 (RUT!) 

100» o cuando pulso F4 (LIST) 
me sale «Subscript out of ran- 
ge in 970». Como hace tiempo 
que salló este programa si no 
lo contestáis vosotros me gus- 
taría que algún lector me diera 
la solución. 

Be ni Peres AdeU 
Barcelona 

Primero revisa cuidadosa- 
mente el tecleado. En ambos 
casos los mensajes de error te 
indican un fallo en las tablas. 
Revisa las DIM. 



LA RABA DIL ESPACIO 

Compré el n.° 8 de la revista 
MSX SOFT MAGAZIHE que 
viene con una cinta con un 
programa que ustedes ya pu- 



blicaron en diciembre. Se trata 
de «La rana del espacio» 
¿Cómo es que sucede esto? El 
perjudicado es el usuaório y no 
creo que sea correcto. 



Verdlclo 

Quiero denunciar un acto de 
piratería. En la revista MSX 
Magaztne publicaron en enero 
el mismo programa que voso- 
tros publicasteis en diciembre. 
Me reñero a la «Rana del espa- 
cio» firmado por Osymer. Lo 
denuncio porque no es la pri- 
mera vez que sucede con pro- 
gramas publicados por voso- 



Juan R. de la Corsa 



tros. 



Nuestra política editorial 
está fundamentada en la credi- 
bilidad y en la confianza entre 
nuestros lectores. Lamenta- 
blemente algunos abusan de la 
buena fe. En el caso déla «Rana 
del Espacio» que nosotros pu- 
blicamos antes que cualquier 
otro medio, debemos dejar sen- 
tado el abuso del autor que no 
tuvo escrúpulos para partici- 
par en nuestro concurso y al 
mismo tiempo enviarlo a otras 



publicaciones que se han visto 
sorprendidas en el caso que 
nos ocupa en su buena fe. Por 
lo tanto, comunicamos a nues- 
tros lectores que «La rana del 
Espacio» de Osymer Godoy Rl- 
vero queda DESCALIFICADO 
de nuestro concurso. 



ACCESO AL MSX DOS 

Los comandos del MSX-DOS 
que publicasteis me han sido 
de mucha utilidad, dado que en 
el manual de Sony no venían. 
Mi problema es que al utilizar 
CALL SYSTEM no me retorna 
al MSX-DOS y me da «Bad file 
ñame». Tengo un Sony HB7BP 
y me gustaría acceder al MSX- 
DOS sin tener que cargar cada 
vez el programa del diskette e 
interrumpirlo con CTRL- 
8T0P. 

Adolfo Barbará 
Valencia 

El arranque del ordenador 
se efectúa sobre el diskette del 
sistema, por lo tanto hay que 



X'PRESS, MANUAL EN 
CASTELLANO 



He leído con mucho interés 
la presentación que hicieron 
del Speotravídeo SVI 738 
X'Press y sin pensarlo más me 
compré uno, sobre todo por lle- 
var la unidad de disco incorpo- 
rada. Lamentablemente no he 
podido sacarle demasiado pro- 
vecho debido que hasta ahora 
no he conseguido una base de 
datos en disco y además por- 
que el manual de instruccio- 
nes de los sistemas operativos 
MSX-DOS, CP/M y los diskettes 
de demostración vienen en In- 
glés. He recurrido a la tienda 
donde lo oompré y también a 
Indescomp, pero ninguno me 
ha sabida resolver el proble- 
ma. Es muy grave que esto ocu- 
rra y que las casas proveedo- 
ras no se dignen a dar un ma- 
nual escrito en castellano. 

De todos modos me gustaría 
que me informaran donde pue- 



do conseguir una base de datos 
en disco. 

Joan Arlas Gomes 
San Bol (Barcelona) 

A raíz de varias quejas rela- 
cionadas con el manual no tra- 
ducido nos hemos puesto 
contacto oon la nueva dlstrl 
buidora de Speotravídeo, U 
casa SVI España, oí Constitu 
clón 260, Torrejón de Ardoz 
(Madrid), la ouaJ nos comuni- 
ca que dispone de manuales 
castellano y que aquellos usua- 
rios que los necesiten pueden 
solicitarlos en esa dirección. 

En el mercado hay varias 
versiones de Base de Datos en 
disco, entre ellas 
(Sabino de Arana 
na) y la de " " 
(Ctra. de Eaph 
üa\ Barcelona), 
haberte ayudado a resolver 
problema. 




cargarlo siempre. El comando 
SYSTEM o CALL SYSTEM pro- 
voca el abandono del BASIC y 
el retorno al MSX-DOS, pero 
para que sea efectivo, ya que se 
trata, de un comando de siste- 
ma, antes tenemos que haber 
utilizado -o CALL. 



r 



KOHAMT SPECTRA7IBE0 



En la contraportada del n.° 
15 está escrito que los cartu- 
chos Konami son compatibles 
con todos los ordenadores 
MSX, pero en la lista de mar- 
cas no figura el Speotravídeo 
728 MSX Significa que estos 
cartuchos no son compatibles 
con este ordenador. 

Sergio Lopes 

La compatibilidad es total 
con el SVI728, sólo que esta 
marca no figura en eJ anuncio. 



Como un Joystick puede re- 
sultar caro o inadecuado para 
mis necesidades, quisiera que 
me mostrasen el esquema 
eléctrico de uno de ellos o la 
función de cada patilla de los 
controles Ay B, 

También me gustaría que 
me dijeran para que sirve la 
instrucción GET y el error «se- 
cuentlal 1/0 only» al abrir un 
archivo y ejecutar QET( 1 ). 

Emilio Carpió Boca 



Muy pronto publicaremos 
un artículo dedicado a los Joys- 
tick, gracias al cual, si tienes 
los medios adecuados podrás 
fabricarte uno tú mismo. 

La Instrucción OET en BA- 
SIC es la misma conocida en- 
tre los usuarios MSX como LN- 
KEY$. Esta instrucción te per- 
mite dar entrada a una pulsa- 
ción de tecla sin necesidad de 
pulsar RETURN. Además sirve 
para chequear el teclado y en- 
vía, la primera pulsación dada, 
como el contenido de la varia- 
ble de cadena inducida en la or- 
den INKEYi. 

«Secuenctial I/O only» te in- 
dica que has intentado acceder 
a un archivo secuencia! de 
modo incorrecto. 



Input 



TEST DE LISTADO 



¿Para qué sirve el Test de 
Listado? 

David J.S. 

Quisiera saber cómo se saca 
el Test de Listado. Os feliolto 
por los programas, son magní- 
ficos. 

Yolanda Cordero 
Barcelona 

lío sé como utilizar el Test de 
Listado. Además el cassette 
HERO cuando lo cargo, por la 
mitad se resetea y me da Devi- 
ce I/Oerror. 

Gerónimo Lópei 
Dos hermanas (Sevilla) 

Aunque ya nomos publicado 
más de una vez el modo de em- 
plear el Teet de Listado (Ver n° 
10-11), lea diremos que se tra- 
ta de un programa que permite 
verificarla corrección con que 
se ha copiado el listado. El lec- 
tor que ha copiado un progra- 
ma publicado por nosotros tie- 
ne al ñnal un listado de rete- 



LU17LUIJ 



Poseo un ordenador MSX y 
aún no sé usarlo muy bien. He 
tecleado Lucky Luke y en reali- 
dad no veo ningún error, pero 
después de pulsar P6 empieza 
a dibujar la entrada del salón y 
después me desaparece todo. 
Les ruego me indiquen donde 
puedo tener el error. Espero la 
reedición de los números atra- 
sados para comprarlos. 

Rose Mary Oséa 



Cuando te desaparezca todo 
de pantalla, pulsa F6, entonces 
la pantalla cambiará de color y 
aparecerá el mensaje de error. 
Los números atrasados pue- 
des adquirirlos solicitándolos 



COPT-LPHUT 



El motivo de dirigirme a Vds . 
es para participarles la satis- 
facción y alegría que me pro- 
dujo la publicación del artículo 
«Volcado de pantalla» y el pro- 
grama «Copy LPrint». Lamen- 
tablemente después tuve una 
decepción debido a que sólo 
funciona con impresoras de 
Upo matriclal, pero no con 
plotter. 

Juan M. Rodrigue i Oonaa- 
1" 

Tomares (Sevilla) 

No te desanimes, pues nues- 
tros programadores están tra- 



que damos tiene que coincidir 
con la que él obtenga emplean- 
do el programa verificador 
(publicado en el n° 10). De no 
coincidir debe buscar en qué li- 
nea está la diferencia y allí lo- 
calizará el error. El modo de 
cargar el programa verifica- 
dor lo encon trarán eneln°ll. 



Después de copiar correcta- 
mente el Test de Listado y que- 
rerlo grabar mediante la sin- 
taxis SAVE «Test» me aparece 
en pantalla Type mismatch. 
¿Qué es lo que hago mal? 

J.M Gómale» 
Uodio (Alava) 

Lo que haces mal es que co- 
pias las comillas incorrectas. 
Debes utilizar las que apare- 
cen en la tecla siguiente a la de 
dos puntos y punto y coma 
(8HJFT + TECLA). Próxima- 
mente editaremos nuestra 1" 



Tengo problemas con el Mit- 
subishi ML FX2 ya que no me 
entran los programas de 64K, 
los de 16K, 32Ky cartuchos sí. 
En el Corte Inglés me dijeron 
que se debía a que la ROM está 
ocupada por cuatro progra- 
mas de utilidad, llamados 
MAP. Me han dicho que para li- 
brarla me hace falta una su- 
brutina. 

José Manuel Alvaro Ramos 
Madrid 

Los problemas que nos co- 
mentas acerca de la carga de 
programas superiores a 32K 
posiblemente se deban a un fa- 
llo de la grabadora o del apara- 
to. No es cierto que el MAP sea 
la causa, ya que este programa 
tiene su propia memoria La 
configuración del ML FX2 es 
de 32E de ROM + 16K MAP y 
64K RAM + 16K VRAM, de 
modo que no ee esta la causa de 
Cus problemas. Te recomenda- 
mos que, después de hacer las 
verificaciones recomendadas 
por el fabricante, lo lleves a su 
servicio técnico. 



bajando en un programa para 
el volcado de pantalla a través 
deplotter. Muy pronto lo verás 
publicado. Hasta entonaos, pa- 



Soy un usuario MSX y el mo- 
tivo de mi carta es pedirles in- 
formación acerca del modem y 
del acoplador acústico, así 
como sitios donde los vendan. 

Carlos Muflís Boma 
Ferrol (La Corofla) 

El Modem es un aparato M0- 
dulador-DEModulador em- 
pleado para la comunicación 
de un sistema digital a una lí- 
nea telefónica. Su función es 
codificar y decodlficar las se- 
ries de bits en frecuencias. Loa 
datos digitales procedentes del 
ordenador son transformados 
en señales moduladas las cua- 
les se transmiten vía telefóni- 
ca a otro ordenador que aJ reci- 
birlas, mediante el MODEM las 
*demodula» convírtléndolas 
otra vez en datos digitales. La 
conexión de un modem sehace 
a través de una salida de tipo 
R8-232Cyson muy útiles para 
la consulta en bancos de datos, 
ya sea institucionales o priva- 
dos. Los acopladores acústicos 
son M0DEM8 capaces de oir la 
señal telefónica superior a 
300 bit/segundo. Este periféri- 
co puede comprarse en las 
principales tiendas de infor- 



HB101P LEE DISKETTES 



Tengo un HB-101 de 48K de 
RAM. Mi pregunta es que si 
oon las convenientes adapta- 
ciones (cartucho de amplia- 
ción), puede desempeñar las 
mismas funcionss que los 
MSX de 64K. Esto es si puedo 
utilizar una unidad de disco 
con sistema operativo CP/M, 
M8X-D0S y MSX-Disk Basic, 
porque para ello neoesítaría 
cuatro slots y sólo cuenta con 
dos. 

Jorge Qonsálfli 
Eibar (Guipúzcoa) 

Este ordenador no necesita 
ninguna adaptación especial 
para utilizarla unidad de disco 
en cualquier sistema operati- 
vo compatible, ya que tiene 
una conexión directa para una 
unidad lectora de dlskettes. 
Obviamente tienes que am- 
pliar su memoria con un car- 
tucho de 64K. Como ya sabrás 
entre el MSX-D08 y el CP/M la 
compatibilidad es casi total 
una vez que se ha formateado 
el disco en M8X-DOS. 



SPECTRAVLDEO 318/328 

Quisiera saber cuál es la te- 
cla «Code» en el SVI 328 a la 
que os referís en vuestro apar- 
tado «trucos del programa- 
dor» del n° 14, mediante la cual 
se puede escribir la «ñ». 

Javier Pinedo Pinedo 
Burgos 



Output 



Lamentablemente tu orde- 
nador no tiene esa tecla y tam- 
bién carece de la «ñ». 

Desearía una orientación 
para poder adaptar vuestros 
programas de MSX a mi SVI 
388. 

Francisco Martín 
Fernández 
Terrsssa (Barcelona) 

Espero que me digáis las pa- 
labras o instrucciones equiva- 
lentes para adaptar vuestros 
programas MSX a mi micro. 

Ramón Llorona 
Barcelona 

Creo que haríais bien en pu- 
blicar las equivalencias del 
Spectravídeo 318/328 con el 
MSX. 

Francisco Maldonado 
Cetina 

Los 8VJ 388 y 318 no son 
compatibles oon la norma 
MSX. Sin embargo, las diferen- 
cias a nivel de Basic son peque- 
ñas de modo que con un poco 
de práctica es posible adaptar- 
los. Sóbrelas equivalencias po- 
déis encontrar información en 
el libro «MSX, Programas y 
Utilidades», Editado por Ferré- 
Moret. En el número 9- 10 de 
MSX CLUB DE PROGRAMAS, 
salló publicado un artículo ti- 
tulado "Las equivalencias del 
MSX con los SVI 318/328», en 
el que aparece una rutina en 
código máquina que facilita las 



QQQOQQQQ 



AVISO URGENTE 



Rogamos a los siguientes 
lectores se pongan en con- 
tacto con nuestro Dpto. de 
Suscripciones y Envíos: Tel. 
(93). 21 122 56. 

Ferreres Beltran, José Luis 
Cristobalena Mancebo, Isi- 

Campillo García Bernardo 
Requena Marín, Francisco 
Pérez Jiménez, José 
Permanyer Sabaté, José 



Valle, Oscar 
Llambrich, José M. a 
Delgado. Fermín 



SUSCRIBETE HOY MISMO SI 
QUERESESTAHENVANGUAUDIA 




La primera revista de MSX de España en tu domicilio < 
mes. Por el precio de DIEZ HUMEROS recibirás DOCE. 

Además tu condición de snscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN IT 



Nombre y apellidos 



Calle 
Ciudad . 
■ Provine! 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número „_ _ 

FORMA DE PAGO: Mediante talón ban- 
cario a nombre de: 

MAÜTTATTAW TBAHSTBB, SJL 
C. . Boca 1 Batlle, 10-18 
08083 Barcelona 



Muy importante : para «vitar retraeos en la 
recepción de loa námeros rogamos deta- 
lléis exactamente «1 nuevo número de loa 
distritos póstale s. Gracias. 

España por correo normal Ptaa. 1 .7B0, - 
Europa correo normal Ptas. 2.000,- 

i ropa por avión 



Amérlci 



avión 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX11 150 PTAS. 



MSX1 2*13 300 



MSX 14 160 PTAS. MSX15 17SPTAS. MSX16 175 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX. 
_- D PT0.SUSCRIPCIONESC/.RooaiBa ül e.I 0 -l; 



ir 



Deseo recibir los números 

para lo cual adjunto talón del Banco 
Nombre y apellidos 



de SUPERJUEGOS EXTRA MSX 



a la orden de Manhattan Transfer, SA 



i j Dirección .. „ _ „ _ Tel.: 

j ^Población DP Prov -»!»••! 



YAMAHA CX5MII 



EL MSX QUE DA LA NOTA 



El YAMAHA CXSMII no es un MSX más. Se trata de un ordenador que auna todas las prestaciones de cual- 
quier otro ordenador de la norma con anas Interesantísimas capacidades musicales. 



CARACTEBISTICAS ESTAHME 

Como hemos dicho, el YAMAHA es 
un ordenador polivalente cuyas normas 
corresponden a las del standard MSX. 
Dispone de una memoria RAM de 64K, 
lo que permite colocar una unidad de 
disco quedando libres para usuario 29K; 
también dispone de una RAM de vídeo 
(VRAM) de 1 6K para gestionar la panta- 
lla, y de una memoria ROM de 48K. El 
teclado, colocado en una carcasa gris 
de atractivo diseño, tiene un tacto como- 
do y preciso. En su parte superior dere- 
cha lleva las dos ranuras de cartucho y 
en el lateral derecho los dos ports de 
joystick. En la parte trasera lleva las co- 
nexiones para impresora, cassette, 
RGB, Audio/ Video y RF. Además de 
todo esto, en su parte inferior incorpora 
unas patas para regular la inclinación 
del teclado y hacer asi más cómodo el 
trabajo. 

P.AlUflTnTff FTfiA III Hit 

Lo que hace diferente a este aparato 
de los otros MSX del mercado es su uni- 
dad de síntesis de sonido en FM incor- 
porada (SFGII). 

Esta unidad sintetizadora es en reali- 
dad un generador de audiofrecuencia 
FM incorporado al YAMAHA, que ade- 
más de permitir la conexión directa de 
un teclado musical YAMAHA o de cual- 
quier teclado MIDI (Musical Instruments 
Digital Interface). Entre muchas otras 
posibilidades, el SFGII tiene las siguien- 
tes: 

-Teclado monofónico y acompaña- 
miento automático de acordes en el 
bajo. 

-Teclado polifónico que permite crear 
acordes de 8 notas sobre una o dos vo- 
ces. En caso de que se utilice un teclado 
MIDI, se puede trabajar hasta con cua- 
tro voces. 

-Grabación en tiempo real y repro- 
ducción de hasta 1800 notas. 

-Posibilidad de empleo como genera- 
dor de audiofrecuencia de 4 voces y dos 
notas MIDI para la bifurcación sobre un 
secuenciador MIDI independiente o una 
caja de ritmos. Los canales de recep- 
ción MIDI pueden ser regulados inde- 
pendientemente de las otras voces. 




Ordenador CXSMII y Melado Yamaha YK 20 



-Es posible utilizar simultáneamente 
8 voces empleando el cartucho de com- 
posición musical YRM-101 (no incluido 
en el aparato). 

En modo SOLO, se puede interpretar 
tan solo una nota a la vez, y se dispone 
de muchos parámetros con la misma 
función que en modo POLY. No obstan- 



te, se añaden nuevos efectos: 

-BALANCE. Gradúa la preponderan- 
cia de un instrumento sobre otro en caso 
de que se hayan combinado dos para un 
efecto sonoro. 

-TRIGGER. Regula el ataque de 
cada nueva nota. 
-PORTAMENTO. Produce un efecto 




de «glissando» entre las notas. 

-R. PATTERN. Selecciona uno de los 
6 modos de ritmo automático posibles. 

-VOLUMEN. De la sección rítmica. 

-CHOR MK. Reserva una parte del 
teclado para los acordes de acompaña- 
miento automático. 

-START MODE. Permite que el ritmo 
suene permanentemente o que se sin- 
cronice con el inicio de la interpretación. 

-TEMPO. De la sección rítmica. 

CALL FMV 

Hemos mencionado anteriormente 
que este ordenador dispone de 48 tim- 
bres de instrumentos diferentes. Esto no 
es del todo cierto. Con el aparato, se su- 
ministra un pequeño cartucho, que se 
inserta en una ranura especial colocada 
en la parte frontal del aparato y que sirve 
nada más y nada menos que para que el 
usuario cree sus propios instrumentos. 
Este cartucho no es otra cosa que un 
programa generador de voces en fre- 
cuencia modulada, y para acceder a él 
no hay que hacer otra cosa que teclear 
CALL FMV en caso de que estemos en 
BASIC o pulsar dos veces la tecla ESC 
si estamos en SFGII. 

Este programa tiene tres modos bási- 
cos de funcionamiento: 

-MODO DE EDICION. Sirve para la 
creación de sonidos. 

-MODO DE COMANDO. Para gestio- 
nar los datos. 

-MODO FICHERO. Actúa como inter- 
face de una memoria exterior perma- 
nente. 

Se puede visualizar hasta 8 pantallas 
diferentes: 

Pantalla de Edición. Muestra todos 
los datos de un sonido, y permite modifi- 
carlos directamente. 

Menú de Comandos. 

Lista de Sonidos. Muestra los existen- 
tes en la memoria. 

Teclas de comando. Define las teclas 
que se utilizan en modo de comando. 

Teclas de edición. Define las teclas 
que se utilizan en modo de edición. 

Teclas comunes. Define las teclas 
que pueden actuar indistintamente en 
uno u otro modo. 

Modo Fichero. Presenta un menú de 
comandos específicos para la gestión 
de los ficheros sobre memoria exterior 
(cassette, disco, cartucho). 



Una vez definidas las voces de usua- 
rio, tan sólo tenemos que volver al pro- 
grama SFGII y además de las 48 voces 
disponibles, si seleccionamos la opción 
U. VOICE podremos disponer de 48 
más definidas por nosotros, teniendo 
además la opción de poder cargar de 48 
en 48 todas cuantas seamos capaces 
de definir. Además, YAMAHA tiene una 
buena biblioteca de software musical 
que pude ayudarte definitivamente a en- 
loquecer. Un consejo: Si compras esta 
maravilla, antes de ponerte a jugar fe- 
brilmente con él lee los dos manuales 
que se suministran con el aparato. Ve- 
rás que sus posibilidades son práctica- 
mente ilimitadas. 

CALL IU8IC 

Cuando conectamos el CX5MII, va- 



mos directamente al BASIC MSX. Si dis- 
ponemos de un teclado compatible y de- 
seamos acceder al SFGII debemos te- 
clear CALL MUSIC. Tras un par de se- 
gundos, nos aparecerá la pantalla inicial 
del programa SFGII. Este programa 
puede utilizarse de dos maneras: Modo 
SOLO y Modo POLY. 

En modo SOLO, se puede interpretar 
monofónicamente con acompañamien- 
to de acordes en el bajo y ritmos progra- 
mables. 

En modo POLY, se pueden interpre- 
tar acordes de hasta 8 notas, pero no 
existe acompañamiento automático. 

Además de estos modos fundamen- 
tales, existen otros dos: modo VOICE, 
que permite visualizar los 48 timbres de 
instrumentos disponibles y modo FILE, 
que se utiliza para grabar o cargar las in- 
terpretaciones u otros datos musicales. 



FICHA TECNICA 



Microprocesador 
Frecuencia de dock 
Memoria ROM 
Memoria RAM 

Modo de texto 
Modo gráfico 
Colores 
Sprites 



Z80A 
3,58 MHz 
48K 

64K (29 usuario + 36 sistema operativo) 

16K VRAM 

40 x 84 

256 X 192 

16 



Teclado 

Conexión cartucho 
Conexiones directas 



Punto de venta 
en Barcelona: 
Precio aproximado: 
OBSERVACIONES: 



32 

P8Q (8 octavas/3 tonos) 

Generador de sonido FM (4 operadores/ 

8 algoritmos/polifonía hasta 8 notas simultaneas) 

48 timbres Internos 

QWERTY (73 teclas) 

2 conectores 

2 joystlcks 

1 impresora tipo centronlc 
cassette 

RP (antena TV)/RQB 

2 altavoces 

1 teclado musical (1/0 MIDI) 

Basic MSX, Ensamblador, Pascal, Logo, etc. 

Hazen. Ctra. La Coruña, km 17,200 

Las Rozas de Madrid 

VENTAMATIC. C7. Córcega, 89, entio. Tel.: 330 97 90 
BARCELONA 
121.600 pts. 

Integra unidad de síntesis de sonido PM 
Programación de voces PM II 



En el momento de su puesta en mar- 
cha, el programa SFGII se inicia en 
modo POLY, para hacer desfilar la pan- 
talla hada arriba y hacia abajo para ver 
todos los parámetros de los que dispo- 
nemos, hemos de servirnos de las fle- 
chas hacia arriba y hacia abajo del cur- 
sor. Para modificar cualquiera de los pa- 
rámetros, utilizaremos las flechas dere- 
cha e Izquierda. 

En modo POLY, existen los siguien- 
tes parámetros: 

-VOZ. Se pueden seleccionar hasta 4 
voces, pero sin teclado MIDI tan solo 
son accesibles 2. 

-VOLUMEN. Desde 0 hasta 13. 

-MODO DE REPRODUCCION. Per- 
mite trabajar con una o dos voces simul- 
táneamente además de poder «partir» 
el teclado, situando una voz en el lado 
izquierdo a partir de la nota que elijamos 



HÉ . 











Vistm do /as comilones Midi y Audio ¡Lado 
izquierdo) 

y la otra voz en el lado derecho. 

-SUSTAIN. Sirve para mantener la 
duración de la nota Interpretada. 

-DETUNE. Regula la mezcla de las 

voces. 



-OCTAVA. Permite subir o bajar una 
octaba a todo el teclado separando las 
voces. 

-TREMOLO, VIBRATO, VELOCI- 
DAD. El trémolo es una variación perió- 
dica del volumen del sonido, mientras 
que el víbralo son las variaciones perió- 
dicas del registro. Pueden ser regulados 
Independientemente. La velocidad re- 
gula estas variaciones periódicas. 

-TEMPO. Regula el lempo de la gra- 
bación o reproducción. 

-TRANSPOSE. Sirve para transpor- 
tar hacia arriba o hacia abajo semitono a 
semitono todas las voces. Muy útil si se 
desea interpretar partituras de Instru- 
mentos no afinados en Do. 

-TUNING. Sin/e para afinar el teclado 
con otros instrumentos con una toleran- 
cia de un semitono hacia arriba o hacia 
abajo. 



REGALATE Y DISFRUTA DEM LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Poker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 




DISPONIBLE EN LOS MEJORES ESTABLECIMIENTOS DE SOFTWARE 
P.V.P. 2.495 
SI NO LO ENCUENTRAS DIRIGETE A 




mwD aamss ssr&na.s.a. 

Mariano Cubi. 4 Entio. Tel. 218 34 00 08006 Barcelona 



4 PRIMERA REVISTA DE MSX DE ESPAÑ 
LIMERO ESPECIAL PVP 275 PTAS 




* Jg q1 O W^- .._„ t N« CODIGO MAQUINl 



* J a1¡) Qifc w— .._„»N« CODIGO MAQUINA 

fTflT. ÜLÜ*^^ -«nú MAQUINA CODIGO MAQUINA CODII 

*jf -n« CODIGO MAQUINA CODIGO MAQUINA CODIGO MAI 

u MAQUINA CODIGO MAQUINA CODIGO MAQUINA CODIGO MAQUINA 
UINA CODIGO MAQUINA CODIGO MAQUINA CODIGO MAQUINA CODK 



,oU MAQUINA C 
EQUINA CODIGC 



BIENVENIDOS A 

UN SOFTWARE DE ALTA CALIDAD PAM MSX 





ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: 

indicar en ei sobre MSX CLUB DE CASSETTES. BOCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 
A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



EL ORDENADOR MUSICAL (II) 



Por Feo. Javier Guerrero 

!n nuestro limero interior liaos algunos ejem- 
plos de la itíUiadón de PLAY, así como naos rudi- 
mentos de teoría musical que esperamos ayuden a 
nuestros lectores a sacar música de su MSI. 



LAPOUfONIA 

Vimos en el número del mes pasado 
las equivalencias de las notas y los rit- 
mos en MML. Dijimos también que era 
posible acceder directamente al genera- 
dor de sonido mediante SOUND, y tam- 
bién ejecutar música hasta a tres voces. 

Pasamos a ocuparnos ahora de este 
particular. 

La polifonía no es otra cosa que «Mú- 
sica a varias partes o voces en la que 
cada una conserva su independencia, 
vinculada no obstante armónicamente a 
las restantes», y los MSX disponen de 
un chip de sonido que permite trabajar 
en tres canales simultáneamente. 

Concluíamos el artículo anterior con 
un pequeño motivo musical y su trans- 
cripción a MML. Si quisiéramos agregar- 
le una segunda voz, deberíamos añadir 
la segunda melodía tras una coma en la 
misma línea de programa. Ver ejemplo 1 . 

Y si aún quisiéramos incluir una terce- 
ra voz, repetiríamos el mismo procedi- 
miento, quedando la línea del modo: ver 
especificación en el ejemplo 2. 

Este motivo a tres voces, ha sido ob- 
tenido de la partitura A. 

Bicoimrnicion8 di umnun 

Si la partitura que deseamos introdu- 
cir en nuestro ordenador es larga y a dos 
o tres voces, tendremos que utilizar va- 
rias sentencias PLAY, con lo que cada 
línea de programa quedará muy larga, 
siendo posible que se sobrepasen Tos 
255 caracteres en cuyo caso, sólo se in- 
terpretará hasta el carácter 255 quedan- 
do «coja» la partitura. Podemos solucio- 
nar este inconveniente introduciendo 
cada voz en una (o varias) cadenas se- 
gún el ejemplo 3. 

Con lo cual, podemos introducir más 
notas en cada una de las líneas quedan- 
do más estructurada la disposición de 
las voces y siendo más sencillo detectar 
los errores. 

Existe un submandato dentro del 
MML que sirve para repetir un motivo: se 
trata (del mismo modo que en macrolen- 
guaje gráfico) del comando X. Es decir, 
si observamos que en una partitura se 
repite varias veces la misma figuración 
rítmica con las mismas notas, podemos 




definirlas al principio del programa como 
una cadena más, y cada vez que se repi- 
ta este motivo podemos ubicarlo donde 
nos interese utilizando «X». Por ejem- 
plo: 

Si en la partitura que transcribimos se 
repite varias veces: 



Podemos hacer lo siguiente: 
1 0 RS "L8 04 CDEFGC" 



20 AS "CEGOSC XRS; AFDC": PLAY 



El punto y coma al final de la expre- 
sión es obligatorio. Si no se coloca nos 
encontraremos con un Syntax Error. 

De todos modos, el empleo de «X» es 
tan solo recomendable en partituras a 
una sola voz. Si experimentamos con él, 
nos daremos cuenta de que cuando se 
interpreta la subeadena se produce una 
pequeña interrupción, que trabajando a 
varias voces se puede convertir en un 
desfase bastante considerable entre los 
canales, capaz de arruinar la interpreta- 
ción. 

El comando L -como ya hemos visto- 
sirve para determinar la duración de las 
notas. De todos modos, si una partitura 
utiliza figuraciones rítmicas muy varia- 
bles no es práctico en demasía, puesto 
que una vez determinada la longitud 
mediante L todas las notas adquieren la 
misma duración hasta que un L diferen- 
te la modifica de nuevo. Sabiendo que si 
no es especifica ningún valor para L, el 
que toma por defecto es L4, podemos 
indicar la duración de las notas hacien- 
do seguir a la nota en cuestión el valor 
que deseemos: 

L4CL8EL1 6GB05L4C. 

puede escribirse también 
CE8G16B1605C. 

Un parámetro muy Interesante que no 
hemos visto hasta ahora es el Tempo. El 
tempo, es la cantidad de negras por mi- 
nuto. Es decir, cuando en una partitura 
veamos la indicación *^ =200 esto 
querrá decir que la pulsación a la que 
debe interpretarse es igual a 200 negras 
por minuto. Para fijar el tempo en MML 
se utiliza el comando T seguido de una 
cifra que indica la cantidad de negras 
por minuto. Cuanto mayor sea esta cifra 
(que debe estar comprendida entre 32 y 
255 y cuyo valor por defecto es 120) 
más rápida se interpretará la melodía. 
En caso de que trabajemos con varias 
voces, debemos indicar el tempo para 
cada una de ellas, puesto que si tan solo 
lo indicamos en una interpretará las res- 
tantes a 1 20 pulsaciones por minuto. 

Para aquellos usuarios que no de- 
seen complicarse la vida con partituras, 
y que deseen obtener no obstante soni- 
dos de su aparato existe el comando N, 
de manejo muy simple. Tras la N, debe 
colocarse un valor numérico comprendi- 
do entre 0 y 96, valor que corresponde a 
todas las notas, semitono a semitono, 
en las 8 octavas del generador de soni- 
do. Si seleccionamos NO, se generará 
un silencio equivalente a la duración de- 
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terminada por L. De tal modo, N1 será el 
Do de la octava baja (01 C) y N96 será el 
Si se la octava más alta (08B) siendo 
N36 el Do de la octava media (Ó4C). 

Para regular el volumen de salida, dis- 
ponemos de la instrucción V, que puede 
almacenar valores comprendidos entre 
0 y 1 5. Evidentemente, si escribimos VO, 
no sonará nada y si omitimos este pará- 
metro; por defecto se tomará V8. Al Igual 
que el tempo, el volumen debe indicarse 
para cada canal por separado. 

Existen dos parámetros adicionales 
en MML que sirven para modificar la fre- 
cuencia de la envolvente (M) y la forma 
de la onda para la envolvente del sonido 
(S). Estos comandos son de utilidad si 
se pretende modificar el timbre, que no 
es otra cosa que el sonido peculiar de un 
instrumento. Si se han introducido los 
ejemplos anteriores, se habrá escucha- 
do la melodía con un timbre que recuer- 
da al de una flauta. Si se desea modifi- 
carlo, habrá que recurrir a M y S. La fre- 



FIOURA 2 



-8=1,2.3.9 
_S = 4,5,6.7,15 



V A v A V s 10 



cuencia de la envolvente (M) puede al- 
macenar valores comprendidos entre 1 
y 65535. La forma de onda (S) puede al- 
macenar valores entre 0 y 1 5, como se 
aprecian en la figura 1 . 

El volumen (V), tempo (T), envolvente 
(M) y forma de onda (S) pueden ser defi- 
nidos previamente a los otros paráme- 
tros. Es decir, si creamos la siguiente lí- 



Podemos eliminar estos parámetros 
de las siguientes lineas del programa. 
Se habrá observado que en la primera 
voz no se ha indicado volumen. Esto es 
porque en el momento en que se modifi- 
ca la forma de onda y el envolvente que- 
da sin efecto el volumen. Es posible 
además que se produzca distorsión, en 
cuyo caso debe intentarse ajusfar el va- 
lor de M y los volúmenes de los restan- 
tes canales. Animo. 
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10 PLAY "D4L16ED#EF#GF#GF#A8A8F#46B. GE8E8F#B. F#D#BD#8EBEECCCC03A4B4D4E2" 
, "04R8LB BBB05CCR8C04BBRBBAAR8AGGGGF#2E2" 



10 PLAY "04Llé>ED#EF#GF#GF#A8A8F#4G8.GE8E8F#8. F#D#8D#8EBEECCCC03A4B404E2" , 
" 04R8LBBBBD5CCR8C04BBR8BAAR8AGGGGF#2E2 " , " 04R8G 1 6A 1 6BBB8BB A8R 1 6A 1 6A 1 6A 1 6A 
1 6A8G8R 1 6G 1 6G 1 h G 1 é.G8F#BR 1 6F# 1 ¿>F# 1 6F« 1 6F#BE8R 1 605E 1 6E 1 6E 1 é>E4D#4E2 " 



10 A*="O4T80V10 RBL8BBB05CCRBC04BBR8BAAR8AGGGGF#2E2" 

20 B»="O4T80V10 L16 ED#EF#GF#GF#A8A8F#4 GB.G E8E8 F#8. F#D#8D#BE8EECCCC03 
A4B404E2." 

30 C*= " O4T80V 10 RBG 1 6 A 1 6BBB8B8A8R 1 é>A 1 6 A 1 6A 1 6ABG8R 1 6G 1 é>G 1 é>G 1 é>G8F#8R 1 6F# 1 ib 
F# 1 6F# 1 ñ[F#8EBR 1 605E 1 6E 1 6E 1 6E4D#4E2 " 
40 PLAY A*,B*,C* 
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DE LETRAS 

r Carmen y Luis González 
eba tu habilidad y capacidad de estrategia para 
una palabra en un tiempo determinado. 




Para jugar es necesario llevar el cursor sobre la letra que se quiere mover y pulsar la barra espadadora. Una vez co- 
locada repetir la operación con la siguiente letra, y así hasta completar la palabra. 

El tiempo es limitado por un contador que se puede modificar para aumentar su dificultad. El ordenador lleva la cuenta 
de las palabras acertadas. 

Según los autores refiriéndose a las variables dicen que «simplemente se carga una matriz de 3 x 9 tantas como ca- 
sillas. Cada una de las matrices se carga con el número del sprite que contiene. Siempre que intentemos un movimiento 
el ordenador mirará las casillas próximas y limitará nuestros movimientos según estén ocupadas o no. 



10 '«*** SOPA DE LETRAS **** 
20 '** POR C.Y L. González ** 
30 '** para MSX-EXTRA ** 

40 ************************** 

50 KEYOFF :COLOR 15. 1 . 1 :SCREEN1 . 1 
60 L0CATE8, 14 :PRINT"ESPERE UN POCO" 
70 REM LECTURA 

80 DIMU*C303 :FOR G=l TO30:READ U*CG3:NEX 
T G 

90 DATA"MELON" . "LUIS" . "CARMEN" . "PANCHOTE 
" , "SUXI " . "AUE" , "CIRUELA" . "PERA" , "AMOR" , " 
RELOJ". "LIBRO". "MESA". "LAPICERO" . "ESTUCH 
E". "ESTILO". "JAMON" 

100 DATA"UERDURA". "DATIL". "BOLSA". "CUADR 

0" . "QUESO " . "SUELO" . "PARED" . "FLORES" . "CAM 

ISON" , "YATE " . "HUEUO" . "C I ERUO" . "LEON" , " IN 

SECTO". "REUISTA" 

110 C=13 

120 DIMAC5.113 

130 REM SPRITES 

140 FOR S=65 TO 90 

150 0M=BASEC73+S*8 

160 FOR R=0M TO DM+7 

170 I=UPEEKCBASEC73+R3 

180 D*=D*+CHR*CI3 

190 NEXT R 

200 Q=S-B4 

210 SPRITE*CQ3=D* 

220 0*="" 

230 REM POSICIONAMIENTO 

240 NEXT S 

250 0PEN"gr P :"AS#1 

260 SCREEN2:LINEC80. 153-C140. 1703.2,B:LI 

NEC 77. 123-C143. 1733. 2. B 

270 FOR 1=1 TO 9 

280 PUT SPRITEI. C85, 17*13. 15 

290 PUT SPRITEI+9. C105, 17*13. 15 

300 PUT SPRITEI + 18.C125. 17*13. 15 

310 NEXTI 

320 FOR j»l TO 9:AC1. J3=J:AC2. J3=J+9:NEX 
TJ 

330 FOR J=l TO 8:AC3. J3=J+!8:NEXTJ 
340 X=3:Y=9:GOSUB500 
350 REM BUCLE PRINCIPAL 
360 GOSUB 730 

370 ON STICKC03 GOSUB410, 370. 430. 370. 450 
.450.470.370 

380 IF INKEY*=" "THEN 520 



390 GOTO 370 

400 REM SUBRUTINAS 

410 IF Y=l THEN RETURN 

420 GOSUB490:Y=Y-1 :GOSUB500 :RETURN 

430 IF X=3 THEN RETURN 

440 GOSUB490 :X=X+1 :GOSUB500 ¡RETURN 

450 IF Y=9 THEN RETURN 

460 GOSUB490:Y=Y+1 :GOSUB500 :RETURN 

470 IF X=l THEN RETURN 

480 GOSUB490:X=X-1 :GOSUB500 :RETURN 

490 L INEC62+20*X.-1+Y* 173 -C62+20*X+ 16.-1 

+Y*17+163. l.BF:RETURN 

500 LINEC62+20*X.-1+Y*17 3-C62+20*X+16. -1 

+Y*17+163.2,BF:RETURN 

510 REM MOUIMIENT0 SPRITES 

520 ON STICKC03 GOSUB620. 520. 540. 520. 660 

.520.580.520 

530 GOTO520 

540 IF ACX+1.Y3=0 AND X<3 THEN SUAP ACX. 

Y D . AC X+l . Y 1 :GOSUB190 :GOSUB550 :GOSUB70B : X 
=X+1 :GOSUB500:GOTO370El SE370 ■ 

550 FOR L=l TO 24STEP2 

560 PUT SPRITEACX+l.YD. C62+20*X+L.-1+Y*1 
73. 15.ACX+1.Y3 
570 NEXT L :RETURN 

580 IF ACX-1.Y3=0 ANr X> 1 THEN SUAP ACX. 
Y3.ACX-1.Y3:GOSUB490:GOSUB590:GOSUB700:X 
=X-1 :GOSUB500:GOTO370ELSE370 
590 F0RL=1 T017STEP2 

600 PUT SPRI TEACX-1 , Y 3 . C 62+20*X-L, -1+Y*1 

73.15.ACX-1.Y3 

610 NEXT :RETURN 

620 IF ACX.Y-13=0 AND Y> 1 THEN SUAP ACX, 
Y3.ACX.Y-13:GOSUB490:GOSUB630:GOSUB700:Y 
=Y-1 :GOSUB500:GOTO370 ELSE 370 
630 FORL =1T017STEP2 

640 PUT SPRITEACX.Y-13. C62+20*X+3.-l+Y*l 

7-L3.15.ACX.Y-13 

650 NEXTL:RETURN 

660 IF ACX.Y+13=0 AND Y<9 THEN SUAP ACX. 

Y 3 . ACX. Y+ 1 3 :GOSUB490 :GOSUB670 :GOSUB700 ¡Y 
=Y+1 :GOSUB500:GOTO370 ELSE370 

670 FOR L=l T017STEP2 

680 PUT SPRITEACX.Y+13. C62+20*X+3. -1+Y*1 
7+L3. 15.ACX.Y+13 
690 NEXTL:RETURN 
700 PLAY"vllo6t250c" 
710 RETURN 




720 REM TIEMPO Y PALABRA 

730 LINEC75.3]-C170. 11], l.BF: R=RNDC-TIM 
El: S=INTCRNOC1]*30)+1 

740 L I NEC 1 00. 130] -C 225, 180) , 1 . BF :LINEC 10 

0. 190]-C225. 180]. 2, B 

750 A*=W*CS] 

760 L2=LENCA*] :T=L2*25 

770 FOR K=l TO L2 :F* CK)=MID*C A*. K. 1 ] :NEX 
TK 

780 PRESETC85.3]:PRINT#1.A* 
790 2=225 

800 ON INTERUAL=T GOSUB840 
810 INTERUAL ON 

820 PRESETC 155, 55] :PRINT#1 , "ACIERTOS : " :L 
' 



INEC225.50J-C250.65], l.BF: PRESET C 224, 55 
] :PRINT#1.P1 
830 RETURN 
840 Z=Z-2 

850 REM MIRAR PALABRA 

860 FOR K=l TO L2UF F*CK)=CHR* CAC 1 , K]+6 
4JTHEN G*CK]=" 1 " :NEXTK 

870 FORK=l TO L2:IF G4 CK ] = " 1 " THEN P=P+1: 
NEXTK : IF P=>L2 THEN P1=P1+1 :GOSUB730 :FOR 

K=l TO L2:G*CK]="0" :NEXTK 

880 IF Z<=100 THEN GOSUB730:FORK=1 TOL2: 

G*CK)="0" :NEXT K 

890 LINECZ. 1901-CZ. 180], C 

900 RETURN 



TEST DE LISTADO 



10 

20 


- 58 


140 


- 86 


270 


-191 


400 


- 0 


530 


-161 


660 


-241 


790 


- 57 


- 58 


150 


- 2 


280 


-118 


410 


- 77 


540 


-112 


670 


-183 


800 


-108 


30 


- 58 


160 


-199 


290 


-149 


420 


-247 


550 


-190 


680 


-204 


810 


- 67 


40 


- 58 


170 


-149 


300 


-176 


430 


- 78 


560 


-199 


690 


-151 


820 


-225 


50 


-151 


180 


-223 


310 


-204 


440 


-244 


570 


-151 


700 


-240 


830 


-142 


60 


-225 


190 


-213 


320 


-237 


450 


- 85 


580 


-151 


710 


-142 


840 


-168 


70 


- 0 


200 


-212 


330 


-103 


460 


-246 


590 


-183 


720 


- 0 


850 


- 0 


80 


- 97 


210 


-228 


340 


-193 


470 


- 76 


600 


-202 


730 


'- 60 


860 


-109 


90 


- 88 


220 


-155 


350 


- 0 


48*0 


-245 


610 


- 75 


740 


-245 


870 


-195 


100 


-215 


230 


- 0 


360 


-119 


490 


-143 


620 


-194 


750 


-115 


880 


-147 


110 


- 78 


240 


-214 


370 


-201 


500 


-144 


630 


-183 


760 


-202 


890 


- 78 


120 


-116 


250 


- 64 


380 


-156 


510 


- 0 


640 


-207 


770 


- 73 


900 


-142 


130 


- 0 


260 


- 49 


390 


- 10 


520 


- 89 


650 


-151 


780 


- 73 


TOTAL : 


12053 



Para utilizar el Test de 
que cargar en el ordenador el 



que ofrecemos al final de cada programa, recordamos que previamente hay 
Programa correspondiente aparecido en nuestro número 1 0, de octubre, pág. 29. 




10 '***************************** 

12 >***« SISTEMA SOLAR **** 

20 ' **** POR F.XAVIER SANCHEZ**** 
30 '**** PARA MSX-CLUB **** 

40 '***************************** 
50 CLEAR 500:OPEN "SRP:" AS 1:DEFIN 
T P,D,R,S, J,E,V,T,M,N,U,C,L 
60 ON STOP GOSUB 4080: STOP ON:SCREE 
N 2, 2: COLOR , 1 ¡ CLS: COLOR 15,1,1 
70 REM **************************** 
* 

80 REM ***MATRICES ORBITALES*** 

90 REM **************************** 

* 

100 DIM JX<98) . JY(9S) , SX <B8) ,SY<88) 



: DIM EX (34) ,EY(34) . VX (42) , VY (42) :DI 
M TX (42) ,TY(42) ,MX (50) ,MY(50) :DIM P 
X ( 132) ,PY.< 132) , NX ( 1 18) ,NY( 1 18) ,UX ( 1 
10) ,UY(110) ,P*<9) .P(9,2) , IN(10) 
110 DIM DS*(9> ,R*<9) ,T*<9) ,MA*(9> ,T 
E*(9) ,DI*<?> 

120 REM ************************* 
** 

130 REM *** SPRITE DE JUPITER Y ** 
* *** SATURNO 

*** 

140 REM ************************** 
* 

1 50 A*=CHR* ( &H0 ) +CHR* ( S<H0 ) +CHR* ( &H0 
) +CHR* ( S.H0 ) +CHR$ ( &HF ) +CHR* (&H1F) +CH 



R* ( S<H3F ) +CHR* ( 8<H7F > 

160 B*=CHR* ( &H7F ) +CHR* < 8<H7F > +CHR* ( t, 
H7F ) +CHR* ( &H7F ) +CHR* < &H7F ) +CHR* ( &H3 
F ) +CHR* < S<H 1 F > +CHR* < &HF > 
1 70 C*=CHR* < fy.H0 ) +CHR* ( S<H0 ) +CHR* ( ?<H0 
+CHR* ( &H0 ) +CHR* ( S<H80 ) +CHR* < &HC0 ) +C 
HR* <&HE0) 

1 80 V 1 *= " L 1 605EGFEDFEDCEDC04B05DC04 

BA05C04BAB05DC04B05CEDCDFED" 

190 pem* ********************* ****** 

* 

200 REM *** MUSICA PRESENTACION *** 

210 REM**************************** 
* 

220 V2*="L1605CEDC04B05DC04BA05C04B 
AGBAGFAGFGBAGA05C04BAB05DC04B" 

;l V3*= " 02L 1 6AAA A A AA AAAA AA A AA03DDD 
EEEEEFFFGGGAA" 

240 FOR A=l TO 200: X=RND ( 1 ) #255: Y=R 

ND(1)*191:PSET(X,Y> ,4:NEXT A 

250 D*=CHR* ( S<HE0 ) +CHR* ( Í-HE0 ) +CHR* ( I 

HE0) +CHR* (S<HE0> +CHR* (?<HE0) +CHR* <!<HE 

0 ) +CHR* ( ?<HC0 ) +CHR* ( S.HB0 ) 

260 GOSUB 4070 

270 FOR A=l TO 3 

280 READ B 

290 DRAW"BM=B;, 10C4S3P20U10L20D10" 
300 DRAW"BM=B; , 20C4S3R20D10L20U10" 
310 DRAW"BM=B; . 40C4S3R20D10L20U10" 
320 NEXT A 
330 DATA 25,75, 145 

340 E*=CHR* (&H0) +CHR* (&H0) +CHR* (&HÉ 
) +CHR* (&H0) +CHR* (&H0) +CHR* < ícH20 ) +CH 
R* (&H60) +CHR* <!<HB8) 

350 GOSUB 4070:DRAW"BM55. 15C4S3D45R 
10U45L10" 

360 F*=CHR* < &H87 ) +CHR* ( S.H60 ) +CHR* < 8< 
H1F) +CHR* C8<H0> +CHR* <S<H0) +CHR* <8<H0> + 
CHR* < S<H0 ) +CHR* ( &H0 ) 

370 GOSUB 4070:DRAW"BM105. 10C4S3R10 
D50R10U60L20D1 1 " 

380 G*=CHR* <?<H0) +CHR* <8<H0) +CHR* <S<H0 
) +CHR* < S<H0 ) +CHR* < S<H0 > +CHR* ( SiH2 ) +CHR 
♦ <8<H2)+CHR»(8<H5> 

390 GOSUB 4070: DRAWBM175, 10C4S3D50 
R10U50R10U10L19D10" 

400 H*=CHR* ( &HF9 ) +CHR» ( &H6 ) +CHR* ( &H 
F8 ) +CHR* ( &H0 ) +CHR* < &H0 > +CHR* ( &H0 ) +C 
HR* < !<H0 > +CHR* < &H0 > 

410 GOSUB 4070:DRAW"BM190. 10C4S3D10 
R10U10L10" 

420 L*=CHR* ( 8.H3B ) +CHR* ( &H7C ) +CHR* ( li 
UFE ) +CHR* ( &HFE > +CHR* < ?<HFE ) +CHR* ( S,H7 
C ) +CHR* < &H3B ) +CHR* ( &H0 ) 
430 PLU*=CHR* (&H18) +CHR* ( 8,H3C ) +CHR* 
( 8.H3C ) +CHR* < 8<H3C ) +CHR* (&H1B) +CHR* ( «< 



H0) +CHR*.(S,H0) +CHR* (?<H0> 

440 GOSUB 4070: DRAWBM205. 10C4S3D50 

R10U60L10D10" 

450 M*=CHR* < &H 1 8 > +CHR* ( S<H3C ) +CHR* ( & 

H7E) +CHR* (&HFF) +CHR* <S<H1B> +CHR* (S<H1 

8) +CHR* (?<H18> +CHR* (&H18) 

460 GOSUB 4070: DRAW " BM225 . 10C4S3D50 

R10U60L10D10" 

470 GOSUB 4070:DRAW"BM245. 10C4S3D50 
R10U60L10D10" 

480 WW*=CHR* < SíHFF ) +CHR* ( ?<HC3 ) +CHR* ( 

&HC3) +CHR* Í&HC3) +CHR* <S,HC3> +CHR* <S<H 

C3) +CHR* (S<HFF) +CHR* <S<HFF) 

490 GOSUB 4070:DRAW"BM55.90C4S3R20U 

10L20D10" 

500 SPRITE*(20)=WW* 

510 GOSUB 4070: DRAWBM55. 1 10C4S3R20 
U10L20D10" 

520 GOSUB 4070: DRAW"BM55, 130C4S3R20 
U10L20D10" 

530 GOSUB 4070:DRAW"BM80,90C4S3D40R 

10D10R10U50L10U10L10D10" 

540 GOSUB 4070:DRAW"BM83. 103C4S3D10 

R10U10L10" 

550 REM *INICIALIZO VALORES ORBITAS 
* 

560 IN<1)=17: IN(2)=21: IN(3)=21: IN(4 
)=25: IN<5)=49: IN(6)=44: IN(7)=55: IN< 
8)=59: IN(9)=66:PV=1 

570 GOSUB 4070: DRAW"BM105. 90C4S3D30 
R10U40L10D10" 

580 GOSUB 4070: DRAW"BM105. 130C4S3R2 
0U10L20D10" 

590 GOSUB 4070:DRAW"BM135,90C4S3D55 
R10U65L10D10" 

600 GOSUB 4070:DRAW"BM155.90C4S3D55 
R10U65L10D10" 

610 GOSUB 4070:DRAW"BM175,90C4S3D5R 

10U5R10D20L10U5L10D35R10U10R10D10R1 

0U 1 0L 1 0U 1 0R 1 0U40L29D 1 0 " 

620 PLAY "V12S9M3000", "V12S9M2500", 

"V12S1M3000" 

630 PLAY VI* 

640 LINE(140, 150)-STEP(110,20) , 1 , BF 

650 REM ***GRABO ORBITAS*** 

660 REM ***GRABO ORBITAS*** 

670 REM ***GRABO ORBITAS*** 

680 REM ***GRABO ORBITAS*** 

690 FOR P=l TO 9 

700 IF P=l THEN RESTORE 2100: GOTO 7 
90 

710 IF P=2 THEN RESTORE 2120: GOTO 7 
90 

720 IF P=3 THEN RESTORE 2140: GOTO 7 
90 

730 IF P=4 THEN RESTORE 2160: GOTO 7 




740 IF P=5 THEN RESTORE 2060: BOTO 7 
90 

750 IF P=6 THEN RESTORE 2030: GOTO 7 
90 

760 IF F-7 THEN RESTORE 2310: GOTO 7 

90 

770 IF P=8 THEN RESTORE 2250: GOTO 7 
90 

780 RESTORE 21B0:PLAY V3* 
790 GOSUB 920 

800 PLAY VI», V2*. V3*:PUT SPRITE 0, < 
25, 10) , 6+P, 20: PUT SPRITE 1,(32.30), 
6+P,20:PSET<55.5) : COLOR 6+P: PRINTttl 

810 RUT SPRITE 3, (75, 10) , 6+P, 20: PUT 
SPRITE 4, (82,30) , 6+P , 20 : PUT SF'R I TE 
5, ( 122, 2) , 6+P, 20 

820 PUT SPRITE 6, ( 145, 10) , 6+P, 20: PU 

T SPRITE 7, ( 145, 30) , 6+P, 20: PUT SPRI 

TE 8, < 19B, 2) , 6+P, 20 

830 PUT SPRITE 9, (235, 2) , 6+P, 20: PUT 

SPRITE 10, (235.25) , 6+P, 20 
840 PUT SPRITE 1 1 , (55, 92) , 6+P, 20: PU 
T SPRITE 12, (63. 113) , 6+P. 20 
850 PUT SPRITE 13, (88. 82) , 6+P, 20: PU 
T SPRITE 14, (80. 120) , 6+P, 20 
860 PUT SPRITE 15. < 105. 1 13) . 6+P. 20 
870 PUT SPRITE 16, ( 145, 82) , 6+P, 20: P 
UT SPRITE 17, (145, 105) . 6+P, 20 
880 PUT SPRITE 18. ( 175, 93) , 6+P, 20 
890 PSET(145, 160) : PRINTttl, "c X.San 
chez":PSET(146, 160) : F'RINTttl , " X.S 
anchez " : CIRCLE ( 147, 164) ,6. 6+P 
900 NEXT P 
910 BOTO 1050 
920 FOR X=l TO IN(P) 

930 READ A.B:ON P GOSUB 960.970,980 
,990, 1000, 1010, 1020, 1030, 1040 
940 NEXT X 
950 RETURN 800 

960 EX ( X ) =A: EY ( X ) =B: EX ( 1 7+X ) =-A: EY ( 
17+X)=-B: RETURN 940 

970 VX(X)=A:VY(X)=B: VX(21+X)=-A: VY( 
21+X>=-B:RETURN 940 

980 TX(X)=A:TY(X)=B:TX(21+X)=-A:TY( 
21+X) =-B: RETURN 940 

990 MX(X)=A:MY(X)=B:MX<25+X)=-A:MY< 
25+X ) =— B : RETURN 940 

1000 JX(X)=A: JY(X)=B: JX(49+X)=-A¡ JY 
<49+X)=-B:RETURN 940 

1010 SX(X)=A:SY(X)=B:SX'44+X)=-A:SY 
(44+X) =-B: RETURN 940 

1 020 UX ( X ) =A : UY ( X ) =B : UX (55+X ) =-A: UY 
(55+X) =-B: RETURN 940 

1030 NX(X)=A:NY(X)=B:NX(59+X)=-A:NY 
(59+X) =-B: RETURN 940 

1040 PX (X)=A:PY(X)=B:PX(66+X)=-A;PY 



(66+X ) =-B: RETURN 940 
1050 P(6, 1)=SX(60) :P(6,2)=SY(60) 
1060 P(5, 1 > =JX (50) :P(5. 2) =JY(50) 
1070 P(9, 1)=PX(1) :P(9,2)=PY(1) 
1080 P(7, 1)=UX (29) :P(7,2)=UY(29) 
1090 P(l, 1)=EX(1) :P(1,2)=EY(1) 
1100 P<2, 1 >=VX (21) :P(2,2)=VY!21) 
1110 P(3, 1)=TX(10) :P(3,2)=TY(10) 
1120 P(4. 1>=MX<37> :P(4,2)=MY(37) 
1130 P(8,1)=NX(69) :P(8,2)=NY<69> 
1 140 P* < 1 ) ="Mercuri □ " : P* (2) =" Venus" 
:F'*(3)="Tierra":P*(4>="Marte":P*(5) 
="Jupiter":P* (6) = "Saturno" : P* (7) ="U 
rano":P*(B)="NeptLino":P*(9)="Pluton 

1150 RESTORE 2370 

1160 FOR DT=1 TO 9 

1170 READ DS*,R*,T*,MA*.DI*.TE* 

1180 DS* < DT ) =DS* : R* ( DT > =R* : T* < DT ) =T 

* : M A* < DT > =MA* : D I * < DT ) =D I * : TE* ( DT ) =T 

E* 

1190 NEXT DT 

1200 FOR AA=1 TO 189: LINE (0. AA) - (25 
5,AA) , 1,BF:LINE(0, 191 -AA > - ( 255 . 1 91 - 
AA) , 1,BF:PUT SPRITEAA/7, (0,0) ,0, 20: 
NEXT AA 

1210 REM *** PRESENTACION DEL MENU* 
* 

1220 REM *** PRESENTACION DEL MENU* 
* 

1230 REM *** PRESENTACION DEL MENU* 
* 

1240 REM *** PRESENTACION DEL MENU* 
* 

1250 REM *** PRESENTACION DEL MENU* 
* 

1260 SCREEN 2,2 

1270 SPRITE* (1)=A*+B»+C*+D* 

1280 SPRITE* (2) =L* 

1290 SPRITE* (5) =PLU* 

1300 SPRITE* (3) =E*+F*+G*+H* 

1310 SPRITE* (4) =M* 

1320 COLOR 7,1,1 

1 330 WW*=CHR* ( S/H0 ) +CHR* ( 8<H0 ) +CHR* ( & 
H 1 8 ) +CHR* ( 8<H3C ) +CHR* ( &HFF ) +CHR* ( &H3 
C) +CHR* (&H18) +CHR* (&H0> 
1340 SPRITE*(20)=WW* 
1350 LINE (0,0) -(235, 191 >, 1,BP 
1360 PSET ( 60 , 0 ) : PR I NT# 1 , " EL SISTEMA 
SOLAR" 

1370 PSET (.61,0) : PRINTttl , "EL SISTEMA 
SOLAR " 

13B0 COLOR 4: LINE (60. 1 1 ) -STEP < 125, 1 
) ,4,BF 

1390 F'SET ( 20 , 50) : PRINT#1 « " A) EL SIS 
TEMA SOLAR EN" : PSET (43, 58) : PRINTttl , 
"MOVIMIENTO" 
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1400 F'SET (21, 50) : PRINT# 1 , "A) EL SIS 
TEMA SOLAR EN" : PSET (44, 58) : PRINTttl , 
"MOVIMIENTO" 

1410 PSET ( 20 , 80 ) : PR I NT# 1 , " B) ANAL I S 
IS DE LOS" : PSET (43 , 8Q ) : PRINTtt 1 , " PLA 
NETAS" 

1420 PSET ( 21 . 80 ) : PRINTtt 1 , " B ) ANAL I S 
IS DE LOS" : F'SET (44, 88) : PRINT#1 , "PLA 
NETAS" 

1430 COLOR 13: PSET (30, 160) : PRINT#1 . 
"INTRODUZCA OPCION: " 

1440 PSET (31 , 160) : PRINTttl , "INTRODUZ 
CA OPCION: I" 

1450 T*=INPUT*(1> : IF T*="A" OR T*=" 
a" OR T*="B" OR T*="b" THEN 1460 EL 
SE 1440 

1460 PSET (183, 160) -.COLOR 1:PRINT#1. 
T*:FOR T=1T0 1000: IF T*="A" OR T*=" 
a" THEN PV=l:GOTO 1500 ELSE GOTO 2 
480 

1470 REM ** SISTEMA SOLAR EN MOV.** 
* 

1480 REM ** SISTEMA SOLAR EN MOV.** 
* 

1490 REM ** SISTEMA SOLAR EN MOV.** 
* 

1500 LINE<0,0)-(255, 191) , 1 , BF 

1510 FOR A=l TO 200: X=RND ( 1 ) «255: Y= 

RND(1)*191:PSET(X,Y) ,4:NEXT A 

1520 CIRCLE(127.5. 100. 5) , 10. 1 1 : PAIN 

T STEP<0.0) . ll:FOR RS=10 TO 5 STEP 

-1.2:CIRCLE(127.5. 100.5) , RS.8,6.23- 

(RS/2) ,5+(RS/8) :NEXT RS 

1530 S=60: J=50: E»l : V=21 : T=10: M=37: N 

=69:P=1:U=29:CL=1 

1540 REM ************************** 
** ****RUTINA DE MOVIMIENTO 

**** ********************** 
****** 

1550 PUT SPRITE 1 , ( 127 . 5+JX ( J ) , 95. 5 
+JY(J) ) , 14, 1 

1560 PSET ( 127. 5+JX ( J> ,95. 5+JY (J> ) , C 
L 

1570 IF J>=9B THEN J = l ELSE J=J+1 
1580 PUT SPRITE 13, ( 127. 5+SX (S) , 95. 
5+SYÍS) ) , 11, 1 

1590 PSET (127. 5+SX (S) ,95.5+SY(S) ) ,C 
L 

1600 PUT SPRITE 12. ( 125. 5+SX (S) , 98+ 
SY(S) ) , 13,3 

1610 IF S>=88 THEN S=l ELSE S=S+1 
1620 PUT SPRITE 2, ( 127. 5+EX (E) . 95. 5 
+EY(E) ) ,5,5 

1630 PSET(127.5+EX(E),95.5+EY(E) ),C 
L 

1640 IF E>=34 THEN E=l ELSE E=E+1 
1650 PUT SPRITE 4, ( 127. 5+VX (V) , 95. 5 



+VY(V) ) ,9,2 

1660 PSET ( 127. 5+VX (V) , 95. 5+VY < V) ) . C 
L 

1670 IF V>=42 THEN V=l ELSE V=V+1 
1680 PUT SPRITE 5, ( 127. 5+TX ( T> . 95. 5 
+TY(T) ) ,7,2 

1690 PSET ( 127. 5+TX (T) ,95.5+TY(T) ) ,C 

L 

1700 IF T>=42 THEN T=l ELSE T=T+1 
1710 PUT SPRITE 6. (127.5+MX(M> .95.5 
+MY (M) ) , 6, 2 

1720 PSET ( 127. 5+MX (M) ,95.5+MY(M) ) ,C 
L 

1730 IF M>=50 THEN M=l ELSE M=M+1 
1740 PUT SPRITE 8. (127.5+NX(N) .95.5 
+NY (N) ) , 10, 2 

1750 PSET ( 127. 5+NXÍN) ,95.5+NY(N) ) ,C 
L 

1760 IF N>=118 THEN N=l ELSE N=N+1 
1770 PUT SPRITE 9, (127.5+UXÍU) ,95.5 
+UY(U) ) ,4,20 

1780 PSET ( 127. 5+UX <U> ,95.5+UYíU) ) ,C 
L 

1790 IF U>=110 THEN U=l ELSE U=U+1 
1800 PUT SPRITE 7, (127.5+PX (P) ,95.5 
+PY(P)),5,5 

1810 PSET(127.S+PX(P) ,95.5+PY(P) ) ,C 
L 

1820 IF P>=132 THEN GOTO 1850 ELSE 
P=P+1 

1830 IF PV-1 THEN PV=2: CL=15: GOTO 1 
880 

1840 GÓTO 1550 

1B50 PSET (5, 181 ) , 1 : COLOR 8: PRINT # 
1,"PARA RETORNAR AL MENU PULSA M" 
1860 PSET (6, 181) , 1:PRINT #1,"PARA 
RETORNAR AL MENU PULSA M" 
1870 A»=INKEY*: IF A*="M" OR A*="m"T 
HENLINE (6, 181 ) -STEP (249, 10) , l,BF:FO 
R SP=0 TO 14 IPUT SPRITE SP.(0,0).0 
,0:NEXTSP:GOTO 1320 ELSE 1870 
18B0 FOR L=l TO 9 

1890 REM ** PRSENTACION DEL PLANETA 
* 

1900 REM ** PRSENTACION DEL PLANETA 
* 

1910 REM ** PRSENTACION DEL PLANETA 
* 

1920 A=127.5+P(L. 1) : B=105. 5+P (L. 2) 

1930 FOR D=l TO 10 

1940 PUT SPRITE0, ( A, B> ,8,4 

1950 FOR Y=l TO 20:NEXT Y 

1960 PUT SPRITE0, < A, B) , 1,4 

1970 FOR Y=l TO 20:NEXT Y 

1980 PUT SPRITE0. (A.B) .8,4 

1990 NEXT D 

2000 PSET (15, 181 ) : COLOR 8:PRINT#1," 




PLANETA: ";P*(D :PSET(16. 1B1) : COLOR 
B:PRINT#1, "PLANETA: " ;P*(L) : FOR W=l 
TO 4001 NEXT W 

2010 LINE (15. 181) -STEP<200, 10) , 1,BF 
2020 NEXT L:PUT SPRITE 0,(0,0), 0,4: 
GOTO 1550 
2030 'O. SATURNO 

2040 DATA -85.3,2,-84.7,5,-84.5,7.3 
9 , -8 1 . 5 , 1 4 . 66. -77 . 5 , 20 . 48 , -72 . 5 . 25 . 
70, -69. 5, 28. 24, -66. 5, 30. 48, -61 . 5, 33 
. 69,-58. 5. 35. 37, -55. 5. 36. 89, -49. 5, 3 
9.54, -46. 5, 40 ..70. -43. 5, 41 . 75, -37. 5, 
43 . 58 , -34 . 5 , 44 . 37 , -29 . 5 . 45 . 52 , -26 . 5 
,46. 11,-23.5,46.63.-17.5,47.47.-14. 
5,47.79 

2050 DATA-8. 5. 48. 25. -5. 5, 48. 39, . 5, 4 
8.49,3.5,48.45,6.5,48.35, 12.5,47.97 
,15.5,47.69,21.5,46.94,24.5,46.46,3 
0.5,45.30,33.5,44.62,36.5,43.85,42. 
5, 42. 08, 45. 5, 41. 06. 5Í. 5, 38. 71, 54. 5. 
37.36,60.5.34.27.66.5.30.48,72.5,25 
.70.78.5. 19.21,84.5,7.39,84.7,5,85. 
5,0 

2060 'O. JUPITER 

2070 DATA-71 . 5, 0, -70. 9, 3.5. -70. 5. 7. 

41 , -69. 5, 9. 04, -68. 5, 1 1.03, -62. 5,18. 
69, -56. 5, 23. 6, -50. 5, 27. 25, -44. 5, 30. 
13,-38.5,32.44,-32.5,34.29.-26.5,35 
. 75,-23. 5, 36. 36, -20. 5, 36. 88, -17. 5, 3 
7.32,-14.5,37.69,-11.5.37.99,-8.5,3 
8. 22, -5. 5, 3B. 38. -2. 5, 38. 47, .5,38.49 
,3.5,38.4 

2080 DATA 6.5,38.34.9.5,38.15.12.5, 
37.90, 15.5,37.58, 18.5.37. 18,21.5.36 
.71,24.5,36. 16,27.5,35.53,30.5,34.8 
2,33.5,34.01,36.5,33. 10,39.5,32.09, 

42. 5, 30. 96, 45. 5, 29. 69. 48. 5, 28. 28, 51 
.5,26.70,54.5,24.92,57.5,22.88,60.5 
,20.51,63.5, 17.69,64.5, 16.61,66.5, 1 
4. 14 

2090 DATA 68.5.11.03,69.5.9.04,70.5 
,6.41,70.3,3.6.71.3, 1 
2100 'O. MERCURIO 

2110 DATA-26, 0,-25. 5. 1 . -25, 3, -24,5, 
-22,6.92,-18,9.38,-12, 1 1 . 53, -6, 12. 6 
4,0, 13,6, 12.64, 12, 11.53, 18,9.38.20. 
8.30,22,6.92,24,5,25.3.25.5, 1 
2120 'O. VENUS 

2130 DATA -38,0,-37.5,2,-37,4.5,-36 
,6. 08, -34, 8. 48, -28, 12.84,-22. 15. 49. 
-16, 17.23,-10, 18.33,-4, 18.89.0, 19,4 
, 18.89, 10, 18.33. 16, 17.23,22, 15.49.2 
8, 12.84,34,8.48.36,6.08.37,4.5.37.5 
,2,38,0 

2140 'O. DE TIERRA 

2150 DATA-48.0.-46,4,-45,8.35,-42, 1 
1.61,-36, 15.87,-30, 18.73,-24,20.78. 



-18,22.24.-12.23.23.-6.23.81.0,24.6 
,23.81, 12,23.23, 18,22.24,24,20.78.3 

0. 18.73.36. 15.87.42. 1 1 .61.45.8.35.4 
6,4,48, 1 

2160 'O. MARTE 

2170 DATA-59,4,-57,8.74,-54, 12.20,- 
48, 16. 8, -42, 19.99, -36,22.4,-30, 24. 2 
4, -24, 25. 66, -IB, 26. 7 1,-12, 27. 43, -6, 
27.85,0,28,6,27.85, 12,27.43, 18,26.7 

1 , 24, 25. 66. 30, 24. 24. 36, 22. 4, 42, 19. 9 
9,48, 16.8,51, 14.74,54. 12.20,57.8.74 
,59.4,60,0 

2180 'O.PLUTON 

2190 DATA-125, 0,-125, 5. -123, 10,-120 
, 15.62,-116,21.90,-112.26.60,-108,3 
0.46,-104,33.76.-100,36.66,-96,39.2 
4,-92,41.56,-88.43.68 
2200 DATA-84 , 45 . 60 , -80 , 47 . 37 , -76 , 48 
.98,-72,50.47,-68,51.84,-64,53. 10, - 
60, 54. 25. -56, 55. 31 , -52. 56. 28, -48, 57 
. 16 

2210 DATA-44, 57. 96, -40, 58. 68, -36, 59 
.32,-32,59.89,-28,60.39,-24,60.82,- 
20, 61. 18, -16, 61. 48, -12, 61. 70, -8, 61. 
B7 

2220 DATA-4, 61 . 96, 0, 62, 4. 61 . 96, 8, 61 
.87, 12,61.70, 16,61.48,20,61. 18.24,6 
0.82, 28, 60. 39, 32, 59. 89 
2230 DATA 36,59.32,40,58.68,44,57.9 
6, 48, 57. 16,52.56.28,56,55.31.60.54. 
25,64,53. 10,68,51.84,72,50.47 
2240 DATA 76,48.98,80,47.37.84,45.6 
0,88,43.68,92,41.56,96,39.24, 100,36 
.66, 104,33.76, 108,30.46, 112,26.60, 1 
16,21.90. 120. 15.62, 123, 10, 125,5 
2250 'O.NEPTUNO 

2260 DATA -110, 0,-108, 5, -107, 10,-10 
6, 1 4. 69, -102, 20. 59, -98, 24. 97. -94. 2B 
. 56, -90, 31 . 62, -86, 34. 29, -82, 36. 66, - 
78, 38. 78, -74, 40. 69, -70, 42. 42, -66, 44 
, -62, 45. 43, -58, 46. 73, -54, 47. 91 , -50, 
48. 98, -46, 49. 95, -42, 50. 83, -38, 51 .61 
, -34, 52. 30 

2270 DATA-30, 52. 91 , -26, 53. 44,-22, 53 

.88,-18,54.25,-14,54.55,-10,54.77,- 

6,54. 91 , -2, 54. 99, 2. 54. 99, 6.54.91 

2280 DATA 10,54.77,14,54.55,18,54.2 

5, 22, 53. 88, 26, 53. 44, 30. 52. 91 , 34, 52. 

30,38,51.61,42,50.83,46,49.95 

2290 DATA 50, 48. 9B. 54, 47. 91 . 58. 46. 7 

3 , 62 , 45 . 43 , 66 , 44 , 70 , 42 . 42 , 74 , 40 . 69 . 

78, 38 . 78 , 82 , 36 . 66 , 86 , 34 . 29 

2300 DATA 90,31.62,94,28.56.98,24.9 

7, 102, 20. 59. 106, 14. 69. 107, 10. 108, 5. 

110.2 

2310 'O.URANO 

2320 DATA-103, 0, -101 , 5,-100, 10, -99, 




14.21,-95, 19.89,-91,24. 12,-87,27.56 
,-83, 30. 49, -79, 33. 04, -75, 35. 29, -71, 
37.30,-67,39. 11 

2330 DATA-63 , 40 . 74 , -59 , 42 . 2 1 , -55 , 43 
.54,-51,44.74,-47,45.82,-43,46.79,- 
39, 47. 66, -35, 48. 43, -31 , 49. 1 1 . -27, 49 
.69 

2340 DATA-23,50. 19,-19,50.61,-15,50 

.95,-11,51.20,-7,51.38,-3,51.47, 1,5 

1.49,5,51.43,9,51.30, 13,51.08 

2350 DATA 17,50.79,21,50.41,25.49.9 

5, 29, 49. 41 , 33, 48. 78, 37, 48. 06, 41 , 47. 

24,45,46.32,49,45.29,53,44. 15 

2360 DATA 57,42.89,61,41.49.65,39.9 

4,69,38.23,73,36.33,77,34.20,81,31. 

B1.B5,29.08,89,25.92,93,22. 13,97. 17 

.32, 101, 10, 102,5 

2370 'DAT.PLANET 

2380 DATA 5B, 5B, 0. 2, 0. 06, 4878, 400/- 
200 

2390 DATA 108,243,0.6,0.81,12104,35 
0 

2400 DATA 150, 1, 1, 1, 12756. 50/-S0 
2410 DATA 228,1.0,1.9,0.11,6800.25 
2420 DATA 778,0.4,11.9,317.8,142800 
,-150 

2430 DATA 1418,0.4,29.5,95.14,12000 
0,-170 

2440 DATA 2869.0.9,84.14.52,52000,- 
216 

2450 DATA 4495,0.7,165,17.25.48400, 
-228 

2460 DATA 5898,6.3,248,0.10.3000,-2 
33 

2470 REM ************************** 
*» «««EXPOSICION DE PLANETA 

S»«* ********************** 
****** 

24B0 LINE<0,0)-<255, 191) , 1, BF 

2490 COLOR 7:PSET(45,0):PRINTttl,"AN 

ALISIS DE LOS PLANETAS" 

2500 PSET(46,0) ¡PRINTttl , "ANALISIS D 

E LOS PLANETAS" 

2510 COLOR 4:LINE<45, 1 1 ) -STEP ( 190, 1 
) ,4,BF 

2520 PSET(20, 30) ¡PRINTttl, "EXPLICACI 
ONES: "¡PSET (21. 30) ¡PRINTttl. "EXPLICA 
CIONES: " 

2530 COLOR 15¡ PSET (65. 50) ¡PRINTttl, " 
EN EL ANALISIS DE LOS" 
2540 PSET<40, 60) ¡PRINTttl. "PLANETAS 
APARECERAN UNOS" 

2550 PSET ( 40 , 70 ) : PR I NT# 1 . " CUADROS Q 
UE CONTENDRAN" 

2560 PSET ( 40 , 80 ! : PR I NT# 1 , " I NFORMAC I 
ON REFERENTE " 

2570 PSET (40, 90) :PRINT#1, "AL PLANET 



A A TRATAR" 

2580 PSET (65, 110) :PRINT#1, "ESTOS DA 
TOS NO TIENEN" 

2590 PSET ( 40 , 1 20 ) : PR I NT# 1 , " ACLARADA 
S LAS UNIDADES DE" 

2600 PSET (40, 130) : PRINT#1 , "MEDICION 

2610 COLOR 6¡PSET(65, 160) ¡PRINTttl, " 
PULSA UNA TECLA" 

2620 PSET (66, 160) ¡PRINTttl, "PULSA UN 
A TECLA" 

2630 A*=INKEY*:IF A»="" THEN 2630 E 
LSE 2640 

2640 LINE(0,0)-(255. 191) , 1 , BF 

2650 PSET (45, 0) : PRINTttl , "UNIDADES D 

E MEDIDA" 

2660 PSET ( 46, 0) : PRINT#1 , "UNIDADES D 
E MEDIDA" 

2670 COLOR 4:LINE(45. 1 1 ) -STEP ( 140, 1 
) ,4,BF 

26B0 PSET (25, 40) ¡PRINTttl , "DIST. AL S 
OL : 10^6 Km" 

2690 PSET (25, 50) : PRINTttl , "T. DE ROTA 
CION...: DIAS" 

2700 PSET (25. 60) : PRINTttl, "T. DE TRAS 
LACION. : AKOS" 

2710 PSET (25, 70) : PRINTttl, "MASA 

: TIERRAS" 

2720 PSET<25,80) : PRINTttl , "DIAMETRO. 
: Km" 

2730 PSET (25, 90) : PRINTttl . "TEMPERATU 
RA : GRADOS <C>" 

2740 PSET (25, 110) : PRINTttl, "LA UNIDA 

D TIERRA EQUIVALE A: " 

2750 PSET (55, 125) : PRINTttl, "5,95 10" 

24Kg" 

2760 COLOR 6: PSET (65, 160) : PRINTttl. " 
PULSA UNA TECLA" 

2770 PSET (66, 160) : PRINTttl. "PULSA UN 
A TECLA" 

27B0 A*=INKEY*¡IF A*="" THEN 2780 E 
LSE 2790 

2790 LINE(0.0)-(255, 191) , 1 , BF 

2800 PSET (45, 0 ) : PR INTtt 1 , "COMO ELEGI 

R UN PLANETA" 

2810 PSET (46, 01 : PRINTttl. "COMO ELEGI 
R UN PLANETA 

2820 LINE (45, 10) -STEP < 175, 1) ,4,BF 
2830 COLOR 4: PSET (55, 40) : PRINTttl , " 1 
) MERCURIO" 

2S40 PSET (55, 50 ): PRINTttl, "2) VENUS" 
2850 PSET (55, 60) -.PRINTttl, "3) TIERRA 

2860 PSET (55, 70) : PRINTttl , "4) MARTE " 

2870 PSET (55, 80) : PRINTttl , "5) JUPITE 
R" 

2880 PSET (55, 90) : PRINTttl, "6) SATURN 
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2B90 PSETÍ55, 100) :PRINT#1, "7) URANO 

2900 PSET (55, 1 10) : PRINTttl , "8) NEPTU 
NO" 

2910 PSET (55, 120) : PRINT#1 , "9) PLUTO 
N" 

2920 COLOR <¡>:PSET<25. 140) :PRINT#1, " 

PULSA EL NUMERO DE PLANETA: " 

2930 PSET (26, 140) :PRINT#1, "PULSA EL 

NUMERO DE PLANETA: M" 
2940 COLOR 6: PSET (25, 160) :PRINT#1. " 
PARA RETORNAR AL MENU PULSA M: 
2950 PSET (26, 160) :PRINT#1, "PARA RET 
ORNAR AL MENU PULSA M" 
2960 COLOR 6: A*=INPUT*< 1) : IF A*="l" 

OR A$="2" OR A$="3" OR A*="4" OR A 
*-"5" OR A*="6" OR A*="7" OR A*="8" 

OR A*="9" THEN 2970 ELSE IF A*="M" 

THEN 1350 ELSE 2960 
2970 P=VAL(A»> 

2980 PSET (243, 140) : COLOR 1: PRINTttl, 
A» 

2990 FOR CJ=0 TO 189: LINE (0, CJ ) - (25 

5.CJ+2) , 15,BF:NEXT CJ 

3000 SP=0: COLOR ,15: CLS: COLOR 6,15, 

14 

3010 GOSUB 3050 

3020 REM ************************** 
************** ********************* 
****SEGUN P MERCURIO, VENUS, TIERRA, M 
ARTE , JUP I TER , SATURNO , URANO , NEPTUNO 
V PLUTON*************************** 
*********************************** 
************ 

3030 ON P GOSUB 3190,3300,3320.3390 

,3430,3490,3600,3710,3810 

3040 GOSUB 3830 

3050 LINE(0,0)-(23, 191) , 14, BF 
3060 SP=0 

3070 LINE (240, 0) - (255, 191) , 14, BF 
3080 FOR L=l TO 3 

3090 LINE (25+SP,0)-(95+SP, 15) ,8,B 
3100 LINE (25+SP, 18)- (95+SP.45) ,4,B 
3110 SP=SP+70 
3120 NEXT L:SP=0 
3130 FOR L=l TO 3 

3140 LINE (25. 18+SP)-(95.45+SP> .4,E 
3150 LINE (25,0+SP)-<95. 15+SP) ,B,B 
3160 SP=SP+55 
3170 NEXT L: RETURN 

3180 REM ***«. MERCURIO **** 

3190 CIRCLEU70, 120) ,23, 14:PAINT ST 

EP<0,0) , 14 

3200 R=RND (-TIME) 

3210 FOR AA=1 TO 30 

3220 X=RND(R) *17: Y=RND(R) *16 



■ 



5230 PSET ( 170+ X, 120+Y) , 1 
5240 F'SET ( 180-X, 125-Y) , 1 
5250 PSET(160+X, 130-Y) , 1 
5260 PSET(170-X, 120-Y) , 1 
5270 NEXT AA 
5280 RETURN 

5290 REM **** VEN U 



*** 



3300 CIRCLE ( 170, 120) , 30, 1 1 : PAINT ST 
EP(0,0) , ll:FOR AA=1 TO 30:CIRCLE(17 
0, 120) ,30-AA, 14,0-AA/5,6-AA/15:NEXT 

AA: RETURN 
3310 REM **** T I E R R A** 
* 

3320 CIRCLE (170, 120) ,32,7 

3330 DRAW"BM170,88S4C7G10F3L1G1L1G1 

L1G1L1G1L1G1G4D4F1R1F1R1E2F1R1F1R3D 

5G1R1G2D2G2D2G2D5G2D2G2U3H2U8H2U9R2 

H3R2H2R 1 H3U2E2H 1 U3H 1 U 1 " 

3340 DRAUPBM180, 124C7H1L1H3U1E1U1E1 

R2U 1 E2R 1 F 1 R2F 1 R 1 F3R5U2H3E2H 1 G2H1R1 H 

1U1H1U1H1L1L2D1F1D1F1G1L1E1U1H1U1H1 

L2G1D3L1G1H1U4R 1 E3U2E5R3 " 

3350 DRAWBM180, 124C7F1G1F1D4F1D1G1 

L 1 D 1 G 1 D8G 1 F3E4R 1 U 1 E 1 U 1 E3H2R2U 1 E 1 U 1 E 

2U6R2D5E1R1F1E1" 

3360 PAINT(172, 120) , 7: CIRCLE (220, 80 
),3,14:PAINT STEP(0,0),14 
3370 RETURN 

33B0 REM **** MARTE *** 
* 

3390 CIRCLE < 170, 120) , 35, 8: PAINTSTEP 
(0,0) ,8 

3400 FOR R=l TO 33: CIRCLE ( 170. 120) . 
R,6, 1.8-(R/35) ,4+(R/30) , . 8: NEXTR 
3410 FOR R=l TO 33: CIRCLE < 170, 120) , 
R,6, 1.8-ÍR/35) ,4+<R/30> : NEXTR: RETUR 
N 

3420 REM **** J U P I T E F* * 
* 

3430 CIRCLE (170, 120) .60, 14: PAINT ST 
EP<0,0> , 14:CIRCLE<169, 120) ,70, 15. , , 
. 1:PAINT<170, 120) , 15:CIRCLE(165, 107 
) ,70, 15, , , . 1: PAINT (183. 107) . 15 
3440 FOR R=l TO 10 : CIRCLE ( 1 10, 120- 
R) ,20, 15,0,2, .3: CIRCLE (160, 120-R),3 
0, 15,3,6.23, . 3: CIRCLE (240, 120-R) ,50 
, 15, 1.72, 3.3, .3 
3450 NEXT R 

3460 CIRCLE (163, 130) ,3, 1,0, 6.23: PA 

INT STEP<0,0) , 1: CIRCLE (150, 110) , 10, 

8, .5: PAINT STEP(0,0) ,8 

3470 CIRCLE (170, 120) ,60, 14: RETURN 

3480 REM **** SATURNO ******* 

* 

3490 FOR R=70 TO 50 STEP -1 

3500 IF R<=66 AND R>=63THEN C=14 EL 



SE C=13:CIRCLE<170, 120) ,R,C,0,3, .3 
3510 NEXT R 

3520 CIRCLE (170, 120) ,40, 11:PAINT ST 
EP<0.0> , 11 

3530 FOR R=70 TO 50 STEP -1 

3540 IF R<=66 AND R>=63THEN C=l ELS 

E C=13:CIRCLE<170, 120) ,R,C,3,6.23, . 

3 

3550 NEXT R 

3560 FOR R=l TO 3 STEP 1 

3570 CIRCLE(170,80-R> ,70, 14,4.2,5.2 

, .3 

3580 NEXT R¡ RETURN 

3590 REM **** URANO ***** 
3600 FOR AA=50 TO 60 

3610 CIRCLE (170, 120) , AA+10, 4, 6. 23, 3 
, -2 

3620 CIRCLE (170, 120) , AA, 7, 6. 23, 3, .2 
3630 NEXT AA 

3640 CIRCLE (170, 120) ,35,5: PAINT STE 
P(0,0) ,5 

3650 FOR AA=50 TO 60 

3660 CIRCLEU70, 120) , AA+10, 4, 3, 6. 23 

3670 CIRCLE (170, 120) , AA, 7, 3, 6. 23, . 2 
3680 NEXT AA 
3690 RETURN 

3700 REM *** N E P T U N O ******* 
3710 CIRCLEU70, 120) ,40, 11:PAINT ST 
EP<0,0) ,11 

3720 FOR AA=37 TO 1 STEP -1 

3730 CIRCLE (170, 120) , AA, 15, 0+AA/ 12, 

6.23, .8 

3740 CIRCLE (170, 133) , AA, 15.0+AA/12, 
6.23, .4 

3750 CIRCLE < 170, 113) , AA, 15,0+AA/12, 
6.23, .4 

3760 CIRCLE (170, 120) , AA, 11,3,6.23-A 
A/12, .3 
3770 NEXT AA 

3780 CIRCLE (170. 120) .40, 11 
3790 RETURN 

3800 REM **** P L U T O N 



^^^^ 



3810 CIRCLE (.170, 120) , 15, 5: PAINT STE 
P<0,0) ,5: RETURN 

3820 REM *** RUTINA PARA RELLENAR D 
ATOS EN RECUADROS****************** 
*** 

3830 PSET<27,3) : COLOR 8: F'RINTttl , "DI 
ST. SOL" 

3840 PSET (28, 3) : COLOR B: F'RINTttl , "DI 
ST. SOL" 

3850 LINE(126,0)-<126, 15) ,8 
3860 LINE(126, 18)-(126,45) ,4 
3870 PSET < 100. 3) : F'RINTttl , "ROT" 
3BB0 PSET<101.3> :PRINTttl, "ROT " 
3890 PSET (132, 3) :PRINT#1, "TRAS" 
3900 PSET (133. 3) : PRINTttl, "TRAS" 
3910 PSET ( 168. 3) : PRINTttl , "DIAMETRO" 
3920 PSET(169,3) :PRINTttl, "DIAMETRO" 
3930 PSET (44, 58) : PRINTttl, "MASA" 
3940 PSET (45,58) : F'RINTttl, "MASA" 
3950 PSET (44, 113) : PRINTttl, "TEMP. " 
3960 PSET (45, 113): PRINT#1 , "TEMP. " 
3970 PSET (27, 1B1) : PRINT#1 . "PLANETA: 
";P*(P> 

3980 PSET (28. 1B1) :PRINT#1, "PLANETA: 
" ; P*(P) 

3990 COLOR 4: PSET (99. 5, 25) : PRINTttl, 
R*(P) 

4000 PSET (37, 25) : PRINTttl , D5* <P) 
4010 PSET(132,25) : F'RINTttl , T* (P) 
4020 PSET (175, 25) : PRINTttl , DI* (P) 
4030 PSET (36, 79) : PRINTttl . MA* (P> 
4040 PSET<31. 134) : PRINTttl . TE* (P) 
4050 FOR TT=1 TO 5000: NEXT TT: LINE ( 
0,0)-<255. 191) , 15,BF:C0L0R , . 1 : RETU 
RN 2790 

4060 REM **** EFECTO SONIDO LASER** 
* 

4070 FOR A=0 TO 31:SOUND 6.A:S0UND 
8,15:S0UND 7. ?<B1 1 1 101 1 1 : NEXT A: BEEP 
: RETURN 

4080 REM PROTECCION CONTRA BREACK** 
4090 END 
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TEST DE LISTADO 



10 - 58 
20 - 58 
30- - 58 
40 - 58 
50 -160 



60 - 14 
70-0 
80-0 
90-0 
.00 -177 



11(3 -173 
120 - 0 
130 - 0 
140 - 0 
150 - 29 



160 -157 
170 - 31 
180 -169 
190 - 0 
200 - 0 



210 - 0 
220 - 30 
230 -244 
240 -118 
250 - 0 



260 -144 
270 -177 
280 -201 
290 -146 
300 -147 



310 -149 
320 -196 
330 - 73 
340 - 33 
350 - 31 
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380 
390 
400 
410 
420 
430 
440 



920 
930 
940 
950 
960 
970 
980 
990 
1 000 
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20 



530 
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610 



-119 
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1 050 
1060 
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-249 1150 
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-224 1180 
-108 1190 

- 73 1200 

- 0 1210 
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760 
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780 
790 
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810 
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880 
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910 



1220 
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- 0 1 240 
-198 1250 
-118 1260 
-139 1270 
-160 1280 
■181 1290 
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- 5 
-219 
-159 
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- 97 

- 89 

- 69 
-105 
-131 
-161 
-141 
-163 
-14B 
-108 
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- 86 
-160 

- 68 
-229 

- 14 

- 44 
-196 
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- 86 



-188 

-177 



- 82 1300 

- 52 1310 

- 79 1320 - 81 

- 19 1330 -138 
-206 1340 - 32 

- 54 1350 
-244 1360 

- 50 1370 



- 12 1380 
- 1 36 1 390 



-139 

- 51 
52 

-123 
-171 
-173 

- 75 
-163 



-21 1 
-181 



1440 
1450 
1460 
1470 









- 74 
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-237 


3 160 


-108 


1 490 
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-203 
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-214 
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1 540 
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"^R 
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A7 
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- 80 
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-169 
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58 


2700 




3260 


- 82 


1590 


-209 


^150 


-203 


2710 


-202 


3270 


- 5 


1600 


-176 


2 1 60 


- 5fl 


2720 


-237 


3280 


-142 


1610 


-195 




- ^7 


2730 


-254 


3290 


- 0 


1620 


-200 


2180 


58 


2740 


- 52 


3300 


-107 


1 630 








2750 


- 39 


3310 


0 


1640 


- 85 


2200 


74 


2760 


-142 


3320 


-248 
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7 


2770 


-129 


3330 


- 64 


1 660 


-209 
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- 68 


3340 


-200 


1 670 


-Í61 
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2790 


-139 


3350 
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-138 


3360 


-197 


1 ¿,9¡7i 


-"'09 




58 


2810 


-105 


3370 


-142 
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- 153 




_} 


2820 


-145 


3380 


0 


1710 


—204 






2830 


-248 


3390 


-213 


1 720 


—209 






2840 


- 34 


3400 


-244 


1 730 






-108 


2850 


- 99 


3410 


-244 


1 740 






_* 


2860 


- 32 


3420 


0 


1 ^60 






- -j8 


2870 


-213 


3430 


-100 








-204 


2880 


-233 


3440 


- 80 








\ 


2890 


- 77 


3450 


-213 


1780 






- 1 8 1 


2900 


-252 


3460 


- 83 


1790 


ra 






2910 


-192 


3470 


- 1 


i s'i \ 


% -IQ 


2360 


— 30 


2920 


- 52 


3480 


- 0 
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- 2 


3490 


- 18 
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2940 


-209 


3500 


-168 


t ' n 
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- 1 25 


2950 


-172 


35 1 0 


-213 




171 




- 1 80 


2960 


-175 


3520 


-220 


1 8S0 






~* 


2970 


-136 


3530 


- 18 


1 860 


-237 






2980 


-118 


3540 


-195 


1870 


-■L78 




1 o 


2990 


- 14 


3550 


-213 


1 880 


-194 




-4 o 


1, 1.-100 


- 94 


3560 


-176 




0 




45 


30 1 0 


-144 


3570 


- 43 


1 900 


a 
" 




186 


. l;'-0 


- 0 


3580 


-157 








0 


3030 


-205 


3590 


- 0 


1 920 


*? 


-480 


- 139 


3040 


-159 


3600 


- 88 


1 930 




2490 


- 46 


3050 


-174 


3610 


-142 


1940 


- 61 


2500 


- 32 


3060 


— 1 63 






1 950 


-238 


2510 


-173 


3070 


-132 


3630 


- 5 


1960 


- 54 


2520 


- 59 


3080 


-188 


3640 


-207 


1970 


-238 


2530 


- 68 


3090 


- 59 


3650 


- 8B 


1 980 


- 61 


2540 


-160 


3100 


-101 


3660 


-206 


1990 


-199 


2550 


- 35 


3110 


-123 


3670 


-199 


2000 


- 65 


2560 


- 26 


3120 


-172 


3680 


- 5 


2010 


- 59 


2570 


-240 


3130 


-1B8 


3690 


-142 


2020 


-194 


2580 


-229 


3140 


-101 


■3700 


- 0 


2030 


- 58 


2590 


-159 


3150 


- 59 


3710 


-220 



.3720 


-242 


3730 


- 76 


3740 


- 89 


3750 


- 69 


3760 


-201 


3770 


- 5 


3780 


- 34 


3790 


-142 


3800 


- 0 


3810 


-131 


3820 


- 0 


3830 


- 77 


3840 


- 78 


3850 


- 41 


3860 


- 83 


3870 


- 43 


3880 


- 44 


3890 


-144 


3900 


-145 


3910 


-207 


3920 


-208 


3930 


- 85 


3940 


- 86 


3950 


-206 


3960 


-207 


3970 


- 44 


3980 


- 45 


3990 


- 62 


4000 




4010 


- 63 


4020 


-163 


4030 


- 79 


4040 


-140 


4050 


- 24 


4060 


- 0 


4070 


-15B 


4080 


- 0 


4090 


-129 



TOTAL: 
47687 
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POR EDTJARD PLATA GONZALEZ 



sido diseñado con esmero en los gráficos y cinco 
obstáculos. Parece fácil, pero te 



******** M0NT60LFIER ******* 
'** EDUARD PLAYA GONZALEZ ** 
******* PAPA MSX EXTRA ***** 



50 DEFINT A- Z: GOSUB 1530 
60 ' 

70 '*** BUCLE PRINCIPAL *** 
80 ON SPRITE GOSUB 390 

90 QN STRIB GOSUB 580 . 5S0E STRIG (H) O 
N 

100 FOR M=0 TO 3:0=M MOD 2 

110 FOR U=l TO 2: FOR K=0 TO 3 

120 X (K)=X <K> -R: Y <K) =Y<K) +1 

130 PUT SPRITE K, (X <K> ,Y(K) ), 14,0+1 

4 

140 NEXT K 

150 ON U GOSUB 300,220 
160 ON Q GOSUB 590,780 
l™l NEXT U 

180 IF X<M><100 THEN GOSUB 450 
190 NEXT M:GOTO 100 
200 ' 

210 '*** SUBRUT I NA CONTROL GLOBO ** 
* 

220 G=STICK<H) .-SPRITE ON 

230 IF 6=1 AND B>0 THEN B=B-S 

240 IF G=5 AND B 130 THEN B=B+4 

250 IF B-Í130 THEN B=B+2 

260 IF A=J1 THEN 530 

270 A=A+J2: RETURN 

280 ' 

290 '*** SUBRUT I NA SITUACION GLOBO 
*** 

300 SPRITE OFF 

310 PUT SPRITE 9, (A, B), 4, 17 

320 PUT SPRITE 10, (A+16, B> , 4, 18 

330 PUT SPRITE 1 1 , •( A, B+ 16 ) , 4 , 19 

340 PUT SPRITE 12, ( A+16, B+16) , 4. 20 

350 PUT SPRITE 13, ( A+8, B+32) ,8,21 

360 RETURN 



380 



'*** SUBR. DISTINCION CHOQUE ** 



390 SPRITE OFF: FOR W=0 TO 3 
400 IFS<X(W>+20 AND S>X(W> AND T< Y 
(W)+10 AND T>Y(W) THEN 760 
410 IF Y(WXB+30 AND Y(W)+5>B AND X 
(WXA+30 AND X (W> : A THEN 960 
420 NEXT W: RETURN 
430 







440 '*** SUBRUTINA NUEVO PAJARO *** 
450 SOUND 12,3:S0UND 11,235 
460 PLAY "SBL6405DCE":PLAY "S0" 
470 X(M>=255 

480 Y(M)=ABS( (B-40)+INT<RND(l)*90) ) 
490 IF Y (MI > >Y<M> -17 AND Y(M1XY<M) 
+17 THEN 480 
500 M1=M: RETURN 

510 ' 

520 '*** VIENTO *** 

530 J1=INT(RND(1>*70>+100 

540 IF Jl>fl THEN J2=l ELSE J2=-l 

550 RETURN 

560 ■ 

570 '*** SUBRUTINA BALA *** 

580 GOSUB 670 

590 STRIG <H> OFF: SPRITE ON 

600 FOR Z=l TO 3 

610 PUT SPRITE 4,<S,T),15,2 

620 S=S+3:T=T-2:NEXT Z 

630 IF S-A>90 THEN 810 

640 RETURN 

650 ' 

660 '*** SUBRUTINA DE DISPARO *** 

670 COLOR , , 15 

680 T=B+23:S=A+36:Q=1:R=R+1 

690 SOUND 6, 15: SOUND 7,14 

700 SOUND 9, 16: SOUND 10.16 

710 SOUND 11.0: SOUND 12,16 

720 SOUND 13,0 

730 COLOR , , 1 : RETURN 

740 ' 

750 '*** SUBRUTINA PAJARO MUERTO ** 
* 

760 I=Y (W) :E=X (W) :T=0: 5=0: 0=2: GOSUE 
860 

770 Y(W)=Y(M1)-30:M1=W:X<W)=255 

780 1=1+9: E=E-4 

790 PUT SPRITE 4, (E, I ) , 14, 1 1 

800 IF KB+60 THEN RETURN 

910 T=0:S=0:Q=0:R=R-1 

820 PUT SPRITE 4, (60, 209) , 1 , 2 

830 STRIG (H) ON: RETURN 

840 ' 

B50 '*** MARCADOR DE PUNTOS *** 
860 SPRITE 0FF:F=P+1 
870 OPEN "GRP: "AS#1 

880 IF P=10 OR P=100 THEN Ll=Ll-8 
B90 IF P=1000 THEN 1380 
900 LINE (Ll, 133>-(45, 139) , l.BF 



OOi~ii~ OOi~iQL 



910 PRESET U6, 133) : PRINT#1 , USING"## 
#" S P 

920 SOUND 12.3:S0UND 11,235 
930 PLAY "S8L6406CDC" 
940 CLOSEttl:RETURN 

960 '*** MARCADOR DE VIDAS *** 

970 STRIG(H)OFF:SPRITE OFF 

980 X <W) =255: M1=W: Y(W)=Y(M1 ) -30 

990 V=V-l:OPEN "GRP:"ASttl 

1000 LINE <15,4B>-(40,54> , 1 , BF 

1010 PRESET<16,48) : PRINTttl, USING"00 

1020 PLAY "L10O5V15DEF. " 

1030 IF PLAY <1>=-1 THEN 1030 

1040 IF Vil THEN 1380 

1050 CLOSE#l:STRIG(H)ON:RETURN 

1060 • 

1070 '*** VARIABLES *** 

1080 RESTORE 2220: FOR U=0 TO 3 

1090 READ X (U) , Y (U) : NEXT U 

1 100 V=4: A=131 : B=75:L=1 : Q=0: R=N+4: J 

1=150: J2=1:P=0:M1=3: L1=32:Z=RND< -TI 

ME) 

1110 ' i 
•1120 '*** DISEmO DE LA PANTALLA *** 

1130 COLOR 1 . 1 , 1 : SCREEN 2 

1140 FOR D=0 TO 60 

1150 X=INT(RND(l)*190)+60 

1160 Y=INT(RND(1) *170) 

1170 PSET(X,Y) , 15:NEXT D 

11B0 FOR C=59 TO 62:PRESET (CC-59) 
^•1190 DRAW "S4C2R192D150L8D23LBD16L8 

U8L8U24L 1 6D 1 6L8DBL8U 1 6L 1 6D24L8U8L8U 

1 6LBU 1 6L 1 6D24L 1 6DBL8U24L 1 6D 1 6L8D8L 1 

5DBL10U190" 

1200 BEEP:NEXT C: RESTORE 2230 

1210 GOSUB 1700: DRAW "BM3. 12C15S4XM 

1220 OPEN "GRP: "AS#1 

1230 FOR D=24 TO 155 STEP 43 

1240 LINE <2,D+2)-<50,D+18> , 1 1 , BF 

1250 LINE <0.D)-(52.D+36) , 11, B 

1260 BEEP: READ X*.U1 

1270 FOR C=U1 TO Ul+2 

12B0 PRESET (C,D+7):PRINT#.1,X* 

1290 NEXT C, D: COLOR 15 

1300 PRESET (16, 90) : PRINT#1 . USING"00 

#";N 

1310 PRESET (16, 133) : PRINTttl , "000" 
1320 PRESET (16, 176) :PRINTttl. "000" 
1330 LINE <40,1B4)-STEP(-L(N).-8),1 
.BF 

1340 PRESET(16, 176) : PRINTttl . USING"# 
tttt";R<N> 

1350 CLOSE# 1 : GOSUB 990: GOTO B0 
1360 ' 

1370 '*** FIN DE PARTIDA *** 
1380 COLOR 9:STRIG(H)0FF 
1390 FOR C=96 TO 97 



1400 PRESET (C+Ll/2, 8) :PRINT#1.P: "PU 
iMTOS" 

(1410 NEXT C 

h420 B=B+1: GOSUB 310: IF B<140 THEN 
1420 

1430 GOSUB 1690: FOR C=95 TO 96 

1440 PRESET (C, 20) : PRINTttl , "¿OTRA P 
ART I DA? " 

1450 PRESET (C+36, 30): PRINTttl, "(S/N 
) " ' 

1460 NEXT C:CLOSE#l 

1470 A*=INPUT*<1) 

1480 IF A*="S" OR A*="s" THEN 2060 

1490 IF A*="N" OR A$="n" THEN END 

1500 GOTO 1470 

1510 " 

1520 '*** PRESENTACION *** 

1530 COLOR 6, 1,1: SCREEN 3,3,0 

1540 RESTORE 2150 

1550 FOR A=l TO 2¡B*="" 

1560 FOR C=l TO 26: READ D 

1570 B*=B*+CHR*(D) :NEXT C 

1580 SPRITE*(A)=B*:NEXT A 

1590 PUT SPRITE 0, ( 100. 10) , 5, 1 

1600 PUT SPRITE 1, (180,35) ,5,2 

1610 PUT SPRITE 3, (60, 160) .5.2 

1620 GOSUB 1700:DRAW"BM30. 120S16XM* 

1 630 C*= " V 1 505L64T255GR64GR64 AR64 AR 
64GR64FR64GR6" 

1640 D*="GR64GR64AR64AR64BR64N60R64 
BR7BR7AR7GR7F" 

1 650 E*= " R6FR64FR64GR64GR64FR64ER64 
F" 

1 660 F*= " R6FR64FR64GR64GR64 AR64BR64 

AR7 AR7GR7FR7ER6 " 

1670 GOSUB 1690: GOSUB 1690 

1680 FOR X=0 TO 4000: NEXT: GOTO 1740 

1690 PLAY C*+C*:PLAY D*+E*:PLAY E*+ 

F* 

1700 M*="U12R3ND5R3D12BR5U6L3D6R3BP 

2U6R3D6BR3LU 1 0NLNU2RBR2BD 1 6R3U 1 2L3D 

6R3BR5U6L3D6R3BR2RNRU 1 2RBR3LD 1 8LBR 1 

5BU12L3D6BL2L3U6R3D3L3BL5L2BR5BD3LU 

6BU2U0" 

1710 RETURN 

1720 ' 
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POR " 

1860 PRINT TAB (6) "EDUARD PLAYA GONZ 
ALEZ " 

1870 PRINT TAB (9) "PARA MSX EXTRA." 
1880 PRINT: PRINT STRING* (32,240) 
1890 PRINT: PRINT TAB(4)"-TE ENCUENT 
RAS A BORDO DE UN GLOBO SOBRE UNA C 
IUDAD, A TRAVES DE LA CUAL. UNOS GR- 
ANDES PAJAROS EMIGRAN AL SUR. " 
1900 PRINT: PRINT TAB(4)"-TU MISION 
CONSISTE EN CAZAR EL MAYOR NUMERO P 
OSIBLE DE ESTOS PAJAROS CON UNA ESC 
OPETA. " 

1910 PRINT: PRINT TAB(4)"-HAS DE EVI 
TAR QUE ALGUNO TE REVIENTE EL 6L0BC 
, CON LO QUE TE PRECIPITARIAS SOBRE 

LA CIUDAD. " 
1920 PRINT: PRINT TAB<4)"-EL VIENTO 
TE ARRASTRARA SIN CESAR DE UN LADO 
A OTRO. " 

1930 PRINT: PRINT "-PULSA UNA TECLA 

PARA CONTINUAR-" 

1940 A*=INPUT*<1) :CLS 

1950 ' 

1960 '*** JOYSTICK (S/N) *** 

1970 LOCATE 4. 9: PRINT STRING* (25. 19 

5) 

1980 PRINT TAB (4) "¿UTILIZAS JOYSTIC 
K? (S/N) " 

1990 PRINT TAB (4) STRI NG* < 25, 192) 

2000 H=2: A*=INPUT* < 1 > 

2010 IF A*="N" OR A*="n" THEN H=0 

2020 IF A*="S" OR A*="s" THEN H=l 

2030 IF H=2 THEN 2000 

2040 ' 

2050 ESCOGE NIVEL *** 

2060 SCREEN 0:WIDTH 21: COLOR 15 
2070 IF P>R(N) THEN R (N) =P: L <N> =40- 
Ll 

2080 LOCATE . 8: PRINT STRING* (3, 175) 



;" ESCOGE NIVEL " ¡ STRING* (3. 174) : PR 
INT 

2090 INPUT "PULSA 1,2 o 3 Y ENTER"; 
N 

2100 IF N<1 OR N>3 THEN 2090 
2110 GOSUB 1080 
2120 ' 

2130 DATOS DE LOS SPRITES *** 

2140 DATA 16, 1.6,25, 27, 38,62,60.56, 4 
S,40, 16, 112,96,96.32,0,0,0.0,0 
2150 DATA 0,0,1,3,119,255,12,7,0,0, 
0.0, 0, 0, 0, 0, 48, 224, 192. 128. 128. 124. 
240, 192,0,0 

2160 DATA 0,0,0,112,247,27,5.0,0,0, 
0,0,0,0,0.0,0,0,0,0,224,222,216,224 
, 112,24- 

2170 DATA 0,0,0,1,3,7,7,15.15,31.31 
, 30, 30, 30, 30, 30. 15. 63. 255. 255. 255. 2 
55, 255, 255, 255, 255, 255, 63. 226, 1 10, 2 
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21B0 DATA 240,252,255,255,255,255,2 
55, 255, 255, 255, 255, 253, 213, 86, 149, 2 
13, 0, 0, 0. 128, 192, 224, 224, 240, 240, 24 
8,248, 120, 120.248. 120, 120 
2190 DATA 31, 15, 15,7,7,7,3,2, 1, 1,0, 
0, 0, 0. 0, 0. 226. 255. 255, 255, 247, 247, 2 
47,247, 119,59. 155, 155,75,75,37,37' 
2200 DATA 215.255.255.255.239.239,2 
39,239,238,220,217,217.210,210, 164, 
164, 248, 240, 240, 224, 224, 224. 192, 64, 
128, 128, 0, 0, 0, 0, 0, 0 

2210 DATA 18,18,10,11,15,4,5,9,9,31 
, 15, 15,31,31, 15,0,72,72,80,208,240, 
38, 172.216. 144,248,240.240,248,248, 
240,0 

2220 DATA 10B. 38, 1 56 , 1 1 4, 204 152. 25 
2,76 

2230 DATA "VIDAS". 7, "NIVEL", 7, "PUNT 
"."RECORD", 3 



TEST DE LISTADO 



10 


- 58 


140 


-206 


270 


-166 


400 


-121 


530 


-213 


660 


- 58 


790 


- 85 


20 


- 58 


150 


-200 


280 


- 58 


410 


- 31 


540 


-214 


670 


- 51 


800 


-170 


30 


- 58 


160 


- 26 


290 


- 58 


420 


-162 




-142 


680 


-217 


810 


- 61 


40 


- 58 


170 


-216 


300 


-178 


430 


- 58 


560 


- 58 


690 




820 


-224 


50 


- 13 


180 


- 28 


310 


- 77 


440 


- 58 


570 


- 58 


700 


-139 


B30 


-152 


60 


- 58 


190 






- 93 


450 


- 93 


580 


- 59 


710 


-127 


840 


- 58 


70 


- 58 


200 


- 58 


330 


- 95 


460 


- 88 


590 


-188 


720 


- 29 


850 


- 58 


80 


-126 


210 


- 58 


340 


-113 


470 


-243. 


600 


-202 


730 


-239 


860 


-126 


90 


-162 


220 


- 6 


350 


- 97 


480 


-132 


610 


-104 


740 


- 58 


870 


-224 


100 


-143 


230 


- 98 


360 


-142 


490 


-137 


620 


-135 


750 


- 58 


880 


- 90 


110 


-184 


240 


-227 


370 


- 58 


500 


-130 


630 


-125 


760 


-131 


B90 


- 34 


120 


- 49 


250 


-159 


380 


- 58 


510 


- 58 


640 


-142 


770 


-108 


900 


-116 


130 


- 41 


260 


- 50 


390 


-178 


520 


- 58 


650 


- 58 


780 


- 70 


910 


- 59 







tf**s%&»r¿| DO/"7C OQi~iQC 



920 


- 93 


1120 


- 58 


1320 


- 30 


1520 


- 58 


1720 


- 58 


1920 


- 47 


2120 




930 


-149 


1130 


- 93 


1330 


- 79 


1530 


-224 


1 730 


— 58 


1930 


-163 




5R 


940 


-177 


1140 


-234 


1340 


— 7 


1540 


8 


1740 


-202 


1940 


- 57 


2140 




950 


- 58 


1 150 


2 


1350 


— 192 


1550 


-131 


1 750 


— 57 


1 950 


— 58 




-22B 


960 


- 58 


1 160 


-179 


1360 


- 58 


1560 


-205 


1 760 


-202 


1960 


- 58 


2160 


-248 


970 


- 18 


1 170 


- 59 


1 370 




1570 


-214 






1970 


- 88 


2170 


—207 


980 


-108 


1 180 


- 96 


1 380 


__ 


1580 


-208 


1 780 


-208 


1 980 


-219 


2180 


— 1 58 


990 


-185 


1 190 


-241 


1 390 


-108 


1590 


- ¿,4 


1 790 




1 990 




2190 


- 97 


1000 


-102 


1200 


- 82 




-243 


1600 


-171 


1 800 


-157 


2000 


-228 


2200 


— 107 


1010 


- 6 


1210 


- 6 


141*0 


-198 


1610 


-178 


1810 


- 58 


2010 


-144 


2210 


-169 


1020 


-239 


1220 


-224 


1420 


-141 


1620 


-240 


1820 


- 58 


2020 


-155 


2220 


- 34 


1030 


-148 


1230 


-117 


1430 


-223 


1630 


- 84 


1830 


-103 


2030 


-148 


2230 


- 57 


1040 


- 52 


1240 


-135 


1440 


- 56 


1640 


-127 


1840 


-193 


2040 


- 58 






1 050 


-187 


1250 


- 79 


1450 


-101 

-233 


1650 


-119 


1B50 


-138 


2050 


- 58 






1060 


- 5B 


1260 


-175 


1460 


1660 


- 42 


1860 


-134 


2060 


-233 






1070 


- 58 


1270 


-157 


1470 


- 96 


1670 


-176 


1870 


-193 


2070 


-126 






1 080 


- 76 


1280 


-120 


1480 


-116 


1680 


-222 


1880 


-202 


2080 


- 4 






1090 


-194 


1290 


- 75 


1490 


-201 


1690 


-252 


1890 


-144 


2090 








1 100 


- 14 


1300 


- 40 


1500 


- 90 


1700 


-168 


1900 


- 52 


2100 


- 60 


TOTAL: 


L110 


- 58 


1310 


-243 


1510 


- 58 


1710 


-142 


1910 


-161 


2110 


-215 


26130 




DISTRIBUIDOR OFICIAL 
PRESENTA EL MEJOR SOFTWARE 



CONTABILIDAD EN DISCO MSX 



PARA TU ORDENADOR MSX 

CONTROL DE STOCK EN DISCO MSX 

Mantenimiento de clientes, altas, bajas, 



- Adaptada al Plan General Contable Es- 
pañol. 

- Cuentas de Mayor, detalle y hasta 50 
contabilidades auxiliares (clientes, proveedo- BASE DE DATOS EN DISCO MSX 
res, bancos, centros de coste...) 

- Nueve grupos 
cuentas por grupo 



modificaciones, listados 



Crea ficheros con el número de campos 
que desees, pudiendo manipulados con las 



traductor (con posibilidad de traducir de cual- 
quier idioma a español y viceversa), consul- 
tar, cargar y grabar. 



Máximo 6 dígitos para cada código de opciones altas bajas modificaciones, con- 
3 surtas, nrrianacinn sAlAcrión caMa rw ¡m. 

Niveles a definir por el usuario 



ordenación, selección, salida por ii 
presora, etiquetas... etc. Todo ello ocupando 
- ' 'Én'"oOTteMÍdid«s' auxiliaras hasta la ,otal ca P<> cidad "te. 1 disco. Si lo utilizamos 



999.999 terderos definibles para cada conta- 
bilidad auxiliar (•). 
-Posibilidad de asientos simples o dobles. 



como agenda, por ejempio, tendremos una 
capacidad aproximada de ' 
para 2.000 personas. 



BASE DE DATOS MSX EN CASSETTE 

Este programa permite crear ficheros con 
un numero de campos que oscila entre 1 y 10 tiene que utilizartecnicismosen sus estudios, 



máximo de 30 caracteres por campo. 
Dispone de las siguientes opciones: cargar, quier idioma, no sólo se pueden traducir pala 



Este programa ha sido creado para quien 
me que utilizartecnicismosen susestui " 
si se desea ampliar el vocabulario de i 



consultar, listar, totalizar, modificar. bras, sino incluso frases. Dispone de las s 
guiantes opciones: introducción de palabras. 



seleccionar, salida de etiquetas. 



STAT PAC I EN DISCO MSX 



- Cálculo i 
lianza y desviación típica. 

- Regresiones: 
-LINEAL 

- LOGARITMICA 

- EXPONENCIAL 

- POLINOMICA (hasta décimo grado) 
Obteniendo la tabla de Análisis de varianza 

por cada regresión. 

- Dibujo de los puntos X, Y, y de la función 
aproximada mediante la regresión. 



ECUACIONES LINEALES MSX EN 
CASSETTE 

Este programa permite la resolución de 
cualquier sistema de ecuaciones lineadas, 
con un máximo de 52 ecuaciones con 52 in- 
cógnitas. 



para aprender a programar tu ordenador, ya esta a la venta el libro «CURSO MSX BASIC» es- 
crito por Rafael Gómez, director gerente de MASTER COMPUTER y editado por MARCOMBO 
MASTER COMPUTER. S A Ctra Esplugues. 42 Tel 375 10 18 Cornelia (Barcelona) 




10 KEYOFF 
20 CLS 

30 LOCATE 2, 0: PRIHT"0- I NSTRUCC I ONES 

40 L0CATE2,4:PRINT"1- ECUACIONES DE 
GRADO 2" 

50 L0CATE2,8:PRINT"2- SALIR" 

60 LOCATE2, 12: PRINT"*** INTRODUZCA 

OPCION ***" 

70 INPUTOP 

80 IFOP=2THENCLS: KEY ON: END 

90 IFOP=1THENGOSUB120 

100 IF OP=0 THEN GOSUB 320 

110 GOTO 20 

120 REM 

130 REM ******************** 

140 REM *** ECUACIONES 2 *** 

150 REM ******************** 

160 REM ' 

170 CLS: LOCATE10, 4: PRINT" AX~2+BX+C=0 

180 LOCATE7, 7: PRINT" TECLEE COEFICIEN 
TES" 

190 INPUT "DEME LOS VALORES DE A,B Y 

" i A, B, C 
200 D=<ABS<B>>~2-4*A*C 
210 LOCATE7, 12: PRINT A; "X~2+<" ; B¡ " >X+ 
<" ;C¡">" 

220 IFD<OTHENLETD=ABS<D) : GOTO 280 
230 LOCATE7, 14: PRINT" X=" ; <-B+<SQR(D> 



l ii ü ii ii ii ii ¡r ii ii 



B-<SQR<D> 



> >/<2*A> 

240 LOCATE7, 16: PRINT" X 
) >/<2*A> 

250 LOCATE4, 20: INPUT" OTRA ECUACION? 
<S/N>" ¡ ZS 

260 IFZS="S"ORZ$="s"THENGOTO 140 
270 RETURN 

280 LOCATE7 , 1 4 : PR I NT" SOLUC I ONES I MAG 
INARIAS" 

290 LOCATE7, 16: PRINT"X=" ¡ -B/<2*A> ¡ " + 
"¡ CSQR<D)>/<2*A>;"i" 

300 LOCATE7, 18 : PR INT"X=" ; -B/ (2*A> ¡ "- 
"j <SQR(D)>/C2*A>;"i" 
310 GOTO 250 
320 REM 

330 REM *********************** 
340 REM ** INSTRUCCIONES ** 
350 REM *********************** 
360 REM 

370 CLS: PRINT"Tienes que sustituir 1 
as letras A,B,C de la ecuación que a 
si te pone AX"2+BX+C=0" 
380 PRINT"Para ello solo tienes que 
sustituir y pulsar la tecla ' RETURN' 

390 PRINT" PULSA SPACE PARA IR AL MEN 

U" 

400 Aí= INKEYS 



410 IF A*= 
400 



THEN RETURN ELSE GOTO 



I II II II II II II II II 



: 



TEST DE LISTADO 



10 -183 
20 -159 
30 -125 
40 -160 
50 - 25 
60 - S 
70 - 36 



80 -251 
90 - 24 
100 -224 
1 10 -171 
120 - 0 
130 - 0 
140 - 0 



150 - O 
160 - 0 
170 -227 
180 -102 
190 - 27 
200 - 21 
210 -243 



220 -105 
230 -134 
240 -137 
250 -213 
260 -167 
270 -142. 
280 - 1 1 3 



290 -159 
300 -163 
310 -145 

320 - 0 
330 - 0 
340 - 0 
350 - 0 



360 - 0 
370 -255 
380 -165 
390 - 71 
400 - 64 
410 -142 
TOTAL: 4161 



i 



2.° GRAN 



PROGRAMA 



CONCURSO 



DEL ANO 



CREA Y ENVIANOS TU PROGRAMA. HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO 



BASES 

1- Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 

2- Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3- Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se Insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4- No entrarán en concurso aquellos 
programas plagiados oya publicados 
en otras publicaciones nacionales o 
■extranjeras. 

5- Junto a los programas se incluirán 
en hoja aparte las Instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarlos 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



PREMIOS 



7- SUPERJUEG08 EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de In- 
terés, premiando a sus autores. 

FALLO Y «JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de 8 .J. EXTRA MSX. 

1 1— Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

18- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i Batlle, 10-12 
bajos 

08023 Barcelona 



NOMBRE DEL PROGRAMA 

CATEGORIA 

PARA X 

INSTRUCCION SE CARGA 

AUTOR: 
ERAD: 

CALLE w .< 

CIUDAD DP 

BVDE] 




7"^ 




La primera 
revista de la 
II gen era ci ón 



MSX 



OTRO PRODUCTO MANHATTAN TRANSFER,® SJL 



INICIACION AL LENGUAJE MAQUINA 



DEL HARD Al SOFT 

En nuestro anterior artículo publicado en el número 14 de nuestra revista MSXeitra, hablamos del registro 7 o áe «FLAGS» y dijimos que seria estudiado en 
profundidad en los próximos artículos , pues bien ha llegado ese momento. 



Recordad que este registro F está 
constituido por 8 bits inde- 
pendientes que reciben nombres 
particulares. De estos 8 bits 2 carecen 
de significado (los números 3 y 5), a con- 
tinuación recordaremos estos nombres 
y daremos una pequeña explicación de 
su utilidad. 

Nombre de los bits del Registro F 



s 


z 


50 


H 


30 


P/V 


N 


C 



CAKKT (en castellano acarreo): toma del 
valor uno cuando se sobrepasa la capa- 
cidad del registro implicado en la ins- 
trucción, siempre que ésta afecte al 
flag. Realiza la función de un noveno bit 
del registro, es decir, dado el resultado 
de una operación, por ejemplo el de la 
suma nueve más tres, el funcionamiento 
del flag es el de "y me llevo una", puesto 
que si para anotar el resultado sólo tu- 
viésemos el lugar de las unidades nece- 
sitaríamos el "carry flag" para indicar 
que el resultado (9+3=12) no es 2 sino 
12. 

Si en el registro B tenemos $FF y rea- 
lizamos INC B resultará $00 en B y el 
flag CARRY tomará el valor uno. Si rea- 
lizamos DEC B cuando B contiene $00 
resultará $FF en B y el flag tomará el va- 
lor uno. Si B= $3E y ejecutamos INC B 
resultará B= $3F tomando el flag CA- 
RRY el valor cero. 

Operando con una pareja de registros 
el funcionamiento del flag CARRY es el 
mismo, realizando la función de un deci- 
moséptimo bit. 

CARRY se simboliza mediante una 
"C". 

ZERO: Sirve para indicar que el resul- 
tado de la operación realizada en el re- 
gistro es cero, tomando el flag ZERO el 
valor uno. Debemos prestarle atención 
puesto que es fácil incurrir en el error de 
atribuir el resultado 0 al registro si el flag 
toma valor cero, cuando en realidad lo 
que indica es que el resultado NO ha 



sido cero. Cuando la condición se cum- 
ple (resultado en el registro = 0) el flag 
toma el valor uno. 

Aunque existen muchas instruccio- 
nes que trabajan con parejas de regis- 
tros que no modifican el flag ZERO si lo 
alteran sus homólogos que trabajan con 
un registro, por ejemplo: ADD y DEC. 

ZERO se simboliza con una "Z". 



POHJ. C. GOHZALEZ 

FLOW tomará el valor uno. 

Se utiliza para comprobar que no 
existen errores en la transcripción de 
datos al exterior. 

Si el resultado ha sido PAR se simbo- 
liza por "PE" y si ha sido IMPAR el sím- 
bolo es "PO". 

En segundo lugar cuando se trata de 
instrucciones aritméticas el flag PARI- 



SETO; Se utiliza para indicar cual ha TY/OVERFLOW es un indicador de 

sido el signo del resultado de la última OVERFLOW, esto es, que al efectuar 

instrucción que lo afecta, siempre y una operación hemos sobreescrito acci- 

cuando deba interpretarse con signo, dentalmente el contenido del byte, en- 

En definitiva es una copia del bit 7 que tonces el flag tomará el valor uno. Por 



es el más significativo del registro impli- 
cado. 

Tiene utilidad para datos con el exte- 
rior mediante bus, y tan sólo en algunos 
saltos condicionales en la programación 
del 80 en CM 

SING se simboliza a través de "S". 

HAU - CABBY: su funcionamiento es 
exacto al flag CARRY pero opera entre 
el cuarto y quinto bit, es decir, entre los 
bits 3 y 4 (los bits de un byte se numeran 
de derecha a izquierda: 7654321 0. 

HALF - CARRY se simboliza median- 
te una "H". 

ADD/SDBSTSACT: a éste flag no se tiene 
acceso directo a través de ninguna ins- 
trucción, limitándose su uso al sistema 
interno del Z80. Toma el valor uno si la 



ejemplo si en la adición de dos números 
en complemento a dos se sobreescribe 
accidentalmente el bit 7, el del signo, por 
el resultado, el flag se pondrá a uno, 
(esto lo veremos con detenimiento 
cuando estudiemos la suma por com- 
plemento a dos). 

Por otra parte en instrucciones de 
transferencia de bloques y búsqueda de 
bloques el flag se utiliza como indicador 
de que el contador BC ha llegado a cero, 
tomando el flag en este caso el valor 
cero. 

RÍCUEKDAQUE... 

1 .- Los flag se agrupan en un registro 
especial que denominamos "F". Cada 
flag ocupa del registro "F" un bit y deja 



anterior operación ha sido una sustrae- dos bi, s sin uso, (Jos números 3 y 5) 



ción. 

Se representa con un "N". 
PASTTY/OVERFLOW: tiene dos funcio- 
nes distintas: 

En primer lugar, si se trata de instruc- 
ciones lógicas, suma la cantidad de 
unos de un byte, no importa su coloca- 
ción, entonces si el resultado es PAR el 
flag toma el valor uno y cuando es IM- 
PAR el flag se pone a cero. Por ejemplo 
01011001 tiene cuatro unos, siendo 4 
un número par, el flag PARITY/OVER- 





, a o — o — ™ 
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m 
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En instrucciones, del tipo PUSH, 
POP, etc., con parejas de registros, el 
registro "F" al estar construido junto al 
"A se maneja junto a éste. 

3 - Cada flag sólo puede tomar dos 
valores: el valor 1 si se cumple la condi- 
ción pertinente a ese flag, y 0 si dicha 
condición no se cumple. 

4. - Mientras no se ejecute una ins- 
trucción que modifique al flag, éste 
mantiene indefinidamente el valor ante- 
rior. 

5. - Aunque una instrucción modifique 
los flags su efecto sólo repercute en al- 
guno de ellos. 

6. - Existen una serie de instrucciones 
que únicamente se ejecutan cuando un 
determinado flag está en un estado de- 
terminado. Utilizadas, en principio, en la 
construcción de los saltos condicionales 
y las sentencias del tipo "IF... THEN..." 
del BASIC, y de los bucles. (Los cuales 
estudiaremos a continuación. 



ZAKHWOOD 



U on un estüo a lo India- 

'; O ■ T na Jones pero en una 
i □ época anterior a éste, 

donde ver dragones, brujas, 
S □ caballeros... era muy normal 
"•: □ y frecuente deberás rescatar 
5 □ el gran rubí que fue robado a 
j:p tu pueblo por las extrañas 
Sq criaturas del bosque de Zakll. 
S q Sin este rubú la mala suerte 
: acecharía al pueblo. 
| « Como ves es una gran mi- 
g _ alón la que tienes entre ma- 
nosyparaqueóstatengaéxi- 
: ; ^ to te explicaré como ftinclo- 
V ^ na el Juego: En total son 20 
S ^ pantallas o fases que has de 
■ D recorrer con mucho cuidado, 
v O Paxa comenzar bien el Juego 



En cada fase la maquina te 
dará una Información sobre 
tu situación, léela, a veces 
ayuda a salir de ambientes no 
muy agradables. En ocasio- 
nes de gran peligro pide ayu- 
da, entonces aparecerá una 
serie de mensajes útiles para 
tu supervivencia 

A medida que avanzas ve- 
rás diferentes objetos que 
tendrás que coger, saltar, 
lanzar con lo que podrás per- 
judicarte o beneficiarte. Esos 
objetos podrás transportar- 
los a otra fase teniendo en 
cuenta el limite de objetos 
que transportar. El numero 
de movimientos que realices 
en según que situación tam- 
bién es limitado. 

Las direcciones que podrás 
efectuar son las siguientes: 

- Tecleando N (norte) 

- Tecleando S (sur) 

- Tecleando E (este) 

- Tecleando W (oeste) 

En algún momento de tu 
recorrido podrías quedarte 
con dificultades para avan- 




zar, pero no te desanimes, 
haz unas cuantas maniobras 
y todo solucionado. 

¡Suerte y que consigas ade- 
más del rubí una buena pun- 
tuación! 



Sonido: Apropiado. 
Orafigfflo: Apropiado. 
Concisiones: Es un Juego bastante 
complicado, pero no imposible para un 
aventurero de tu categoría 
Precio apraonuto 2.800 pts. 



OÜÜQQQQQ 



formato: oartucbo o diskette 



La casa Idealoglc ha 
lanzado al mercado un 
Interesante procesa- 
dor de texto, que permite con- 
feccionar cartas, informes y 
un largo etcétera de un modo 
fácil. 



En la pantalla principal el 
programa le informa todo lo 
que el usuario debe realizar 
para obtener lo que desea. 
Para ello cuenta con dos ven- 
tanas, una de textos y otra, 
inferior, de información. En 
la primera escribe, modifica 
y visualiza el texto. La venta- 
na Inferior muestra el esta- 
do, en todo momento, de su 
trabajo, entre otras cosas le 
muestra, el número de línea, 
la columna en que se encuen- 
tra el cursor y la memoria 
que le queda disponible, la 
cual es del 42.500 caracteres 
para un ordenador de 64k. 

El programa le permite la 
corrección de errores, tanto 
de palabras como bloques de 
ellas. 

Por otra parte con sólo 
pulsar una tecla podrá acce- 
der a uno de los menús de 
opciones, en el que se gestio- 
nan los bloques de texto 
(disco o cinta) y tratan los 
ficheros de disco o cinta, 
búsqueda, que realiza la ope- 
ración de buscar determina- 
do texto o etiquetas; control, 
para situar en el texto carao- 



Procesador de Textos 1 
Profesional 



Idea 
text 




teres de control de formato 
de impresión y, por último, 
visuallzación, que < 
nombre Indica permite ver 
el texto en pantalla o sacarlo 
por impresora. 

Una recomendación a te- 
ner en cuenta es la de fijar 
previamente a la realización 
de cualquier texto, loe pará- 
metros de la composición. 
Posteriormente, 
crito el texto e introducidos 
loe caracteres de control de 
impresión, podrá ver el re- 
sultado final en pantalla o 
Impresora. La visuallzación 
en pantalla se da simulando 
i hoja de papel de lmpre- 
dando 

exacta de cómo quedará en el 



Procesador de testo de 
fácil utilización y buenos resultados, 
aunque visualiza parcialmente las ce- 
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SKY JAGUAR 



tu parte provocará el estalli- 
do de las dos naves. En algu- 
na fase pueden aparecer na- 
ves de diversas patrullas 
mezcladas lo cual sería muy 
complicado de esquivarlas y/ 
o derribarlas. 

Cuando veas en la pantalla 
la palabra "POW al estallar 
una nave invasora, trata de 
pasar por encima de ella y 
conseguirás que el disparo de 
tu nave sea doble, lo cual 
hará más fácil la victoria. 

Cuantas más naves derri- 
bes mayor será tu puntua- 
ción. En el caso de que el ven- 
cido derribado seas tú, tienes 
varias oportunidades para 
reanudar la batalla. 
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SIARSUMER 



XoumliSenu 
ftmnjto: cartucho 
Xutatecladoyjoystlck 



Ui 



planeta vecino a la 
tierra ha preparado 
gran Invasión y 
se te ha encomendado a ti su 
defensa, porque para algo 
eres el mejor piloto. 

El juego consiste en des- 
truir a las patrullas invaso- 
ras que aparecerán en la 
pantalla a medida que í 
oes con tu fabulosa nave. 
¡Pero cuidado! cada patrulla 
tiene un tipo diferente de 
mas y te retarán en dlferen 
tes ambientes. En todo 
mentó tendrás que esta 
qulvando los misiles que dis- 
paran e incluso sus propias 
naves ya que un descuido de 
□□□□□□□□□□□□□□□□□□ 





C nw il aitoM i; Dn Juego con el que hay 
que estar con todos los sentidos muy 
despiertos, pues al mínimo descuido 
¡Pial! los invasores conseguirán su pro- 

□□□□□□□□□□□□□□ 



Aquí vamos en plan su- 
per piloto espacial. Es- 
te es un Juego de los 
que crean afición, pues resul- 
ta apasionante conducir la 
nave a través del espacio si- 
deral y eliminar a los enemi- 
gos que ocupan el planeta 
Neón. El malo de la peli es Da- 
rus y el bueno, tú, que eres 
llamado Star Runner. 

El grafismo es espectacu- 
lar y sus efectos son tridi- 
mensionales. El objeto de 
Star Runner es llevar a su 
nave al Planeta Neón y elimi- 
nar los bunker dispuestos 
por Darus. En el primer ni- 
vel, cuentas con la ventaja de 
la sorpresa, y por lo tanto no 
les das tiempo a medida que 
avanzas, a que te disparen. 
Después de cargarte a mu- 
chos bunkers, aparecerá so- 
bre el cielo de Neón, un aguje- 
ro negro que te trasladará 
por el hiperespacío y recupe- 
rarás el tiempo que te ha lle- 
□□□□□□□□□□□□□□□ 



vado el combate. Pero este 
viaje tiene sus peligros. Tus 
neutralizadas por 
la fuerza magnética y no pue- 
des disparar, pero si lo hace 
la nave de Darus y, por si esto 
fuera poco, el muy maldito ha 
diseminado minas a las que 
ves cuando ya están muy pró- 
ximas a U. Lo único que pue- 
des hacer en esta pantalla es 
tener buenos reflejos para 
esquivar minas y disparos. 

La pantalla siguiente es 
como la primera, pero aquí 
los soldados ocultos en los 
bunkers ya están preparados 
y te disparan. También tienes 
la sensación de que tu veloci- 
dad es mayor. Tras superar 
esta etapa, en la siguiente a la 
hlpereepaclal, no sólo verás 
que te disparan los bunkers. 
sino que también lo hace la 
nave de Darus, que ve cómo 
vas rompiendo sus defensas. 

Tienes cinco niveles de difi- 
cultad y puedes empezar por 
el que quieras, pero el no lo 
haces por el primero, descu- 
brirás que «alguien» les ha 
avisado y ya te esperan con 
sus armas listas. 

¡Ahí También tienes algo 
sensacional. Si tienes impre- 
sora, pulsando F6 podrás sa- 
car por ella los gráficos de 
Star Runner. Que te diviertas. 



Somldo: Adecuado. 

Muy bueno 

Magnifico Juego espa- 
cial. Es de los que crean vldo. 
todo: 1.000 pts. 
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KABATE KNIGHT 

Hemos comprobado que las lineas 1790 y 1800 de Karate Wight publicado en 
nuestro número anterior no han Balido correctamente impresa*, por logue 
las reproducimos nuevamente. 

.790 PRESET ( 150, 5) : PRINTttl , "ATICO". 
: LINE (60, 45) - (63, 60) , 2, BF: PUT SPRI 
TE 2, (46, 60) , 10, 13: PUT SPRI TE 3,(62 
,60) , 10, 14: IF S09THEN PUT SPRITE 4 
, (1 10, 16B) , 10, 9 

1800 PSET (140, 185) :DRAW C*:PAINT ( 
143, 180) , 8 

2260 IF P=4 THEN IF X<130 AND Y<135 
AND Y>90 THEN Y=94: T=X-8: GOTO 2320 
2670 DATA 63,31,10,10,10,10,10,10.3" 
1,51, 104, 94, 51 , 30, 12,0. 254. 252, 172, * 
172. 172. 172, 172, 174, 255.243. 237. 222. 
,51,30, 12,0 

3060 IF INKEY*=" "THEN LINE (0., 77) - í 
255, 191 ) , i , BF: GOTO 2790 ELSE GOTO 3 




DÍTEEPACE MMJVC 

Tarda en llegar a ¡spaña 



LJVC, (pie comercializa 
en España, su ordena- 
dor MSX HC-7E y varios mode- 



MAYOR IMPULSO A MSX 

Los fabricantes llegan a un acuerdo 

Tras una reunión entre 
los principales fabrican- 
tes de MSX en España, 
se decidió dar un mayor impul- 
so institucional al estándar. 

El extraordinario éxito de la 
norma MSX en España sor- 
prendió Incluso a sus mismos 
promotores, quienes habían 
hecho la promoción de cada 
uno de sus productores descui- 
dando las características ge- 
nerales de un sistema destina- 
do a desplazar por racionali- 
dad a los otros. Para corregir 
esta política, representantes 
de Canon, Dynadata, Mitaubis- 
hl, Panasonic, Philips, Pio- 
neer, Sanyo, Sony y Toshiba 
mantuvieron una reunión, cu- 
yas conclusiones fueron la de 
difundir conjuntamente al 
MSX como el primer estándar, 
apoyar a las redes de ventas, 
participar en ferias y difundir 
un catálogo de software, con 
más de 400 títulos, práctica- 
mente ignorado debido a la dis- 
persión de las marcas. 

Las marcas participantes 
pusieron de manifiesto su in- 
tención de traducir inmediata- 
mente estos acuerdos en he- 
chos efectivos a fin de consoli- 
dar definitivamente la implan- 
tación del MSX en el mercado 
español, en el que día a día ocu- 
pa un porcentaje mayor de 
ventas. 



LA BUENA MEMORIA DEL ML-FX2 



Mitsubishi aclara un error 

A raíz de numerosas 
consultas referidas a 
la aparición de falta de 
memoria de los Mitsubishi 
ML-FX2 al cargar determina- 
dos juegos y la errónea infor- 
mación brindada por algunas 
tiendas de informática, Mabel 
S-A-, distribuidora de los mi- 
croordenadores Mitsubishi nos 
ha comunicado lo siguiente: 

Los modelos ML-FX1 y ML- 
FX2 tienen 64K de memoria 
RAM localizada en un banco 0, 
uno de los slots entre los 16 
posibles. Al respecto las nor- 



Según Mabel SA, algunos 
fabricantes de software, espe- 
cialmente ingleses, no respe- 
tan estas normas y se produ- 
cen los inconvenientes de car- 
ga. En este sentido es erróneo 
decir que los problemas de car- 
ga se deben a la presencia del 
programa MAP dentro del 
equipo en el caso del modelo 
ML-FX2, ya que dicho progra- 
ma se encuentra en un slot di- 
ferente al del Basic y al de la 
memoria RAM. En consecuen- 
cia no ocupa memoria disponi- 
ble para el usuario, la cual, 
como en otros aparatos de la 
misma capacidad, es de 28.815 
bytes libres. 




los de teclados musicales, ha 
desarrollado también una ln- 
terface MIDI, apropiada para 
emplear el ordenador MSX en 
tareas musicales, tanto en el 
campo de la composición 
como en el de la experimenta- 
ción. Esta interface permite 
conectar directamente el orde- 
nador con el teclado, gracias a 
un cartucho que se lntroduoe 
en el slot correspondiente. 
Nada más fácil que eso. Sin em- 
bargo, la distribuidora españo- 
la de JVC inexplicablemente 
aún no lo ha Importado, aun- 
que ya ha traído los teclados. 



NUEVO MODELO HIT BIT 

SonyHBlOP 

La compañía Sony ha ini- 
ciado la comercializa- 
ción de un nuevo mode- 
lo de Hit Bit. Se trata del HB 
10P que sigue la misma línea 
de diseño del 101 y el 601. Su 
configuración técnica es de 
80K de RAM, con 16E para 
gráficos, 35K para el sistema 
operativo y 29 para el usuario. 
Este modelo cuenta con dos 
slots para cartuchos coloca- 
dos llnealmente y un teclado 
sumamente cómodo de tipo 
profesional. Como todos los 
aparatos con el sello de Sony 
este mantiene una excelente 
relación calidad-precio. 

Próximamente haremos un 
análisis más exhaustivo de 
este aparato, destacando las 
diferencias con sus hermanos 
de serle y con los de otras mar- 





Sony. Nos referimos al Bltcor- 
der SDC-BOO de características 
similares al que Incorpora el 
ordenador HB601P. Su diseño 
es moderno y atractivo y está 
pensado tanto para el uso con 
ordenador como convencio- 
nal, Incorporando una tecla a 
tal efecto. 

Con él puede grabarse tanto 
de modo automático como ma- 
nual, para lo cual cuenta oon 
un nivelador de carga. Otro de- 
talle Interesante es su tecla 
«mute», que permite borrar so- 
nidos grabados anteriormente 
evitando desagradables sor- 
presas. 



MONITOR COLOR PHILIPS 
VS0080 



El V80080 de Philips es 
un modelo de 14", 80 
caracteres, entradas 
CVB8 y RGB, con cable para eu- 
roconector y pantalla de cris- 
tal oscuro, esmerilada. Sus ca- 
racterísticas lo nacen espe- 
cialmente recomendable para 
los ordenadores MSX de la se- 
gunda generación y también 
para equipos de video provis- 
tos de salida para Euroconec- 




tor. Este cable incluye señales 
CVBS, RGB lineal y de audio. La 
calidad de definición es nota- 
ble debiéndose a la avanzada 
tecnología de los tubos de ima- 
gen Philips, compañía de gran 
experiencia en la fabricación 
de monitores y pantallas de vl- 
suallzación para toda clase de 
aplicaciones profesionales. 

El precio aproximado de 
este periférico es de unas 
64.000 pte. 



SpectravídeorPress 

Baja de Precio 

El Spectravídeo SVT 738 
XTress de 80K de RAM, 
unidad de disco de 3,5" 
incorporada, compatible con 
los lenguajes CP/M, MSX- DOS 
y MSX-Dlsk Basic, na bajado de 
precio. A raíz del cambio de re- 
presentante en España, la 
nueva compañía na decidido 
colocar el aparato en unas 
84.400 pts. 

SV1 España, 3 A., tras la fir- 
ma del convenio con Spectra- 
vídeo International Ltd. para 
distribuir en exclusiva todos 
los productos Spectravídeo en 
España, pretende dar un im- 
pulso mayor a esto marca y 



ofrecer un esmerado servicio 
postventa al usuario. Dentro 
de ese contexto na dispuesto 
ahora la edición de los manua- 
les operativos en castellano, 
facilitando así un mayor apro- 
vechamiento de los aparatos. 
Quienes deseen ponerse en 
contacto con SVI España, 8A, 
pueden dirigirse a Constitu- 
ción 260, Torrejón de Ardoz 
(Madrid), Tel. (91) 67B 76 99. 



MSX 



TECLADO MUSICAL TOS] 



hx-kusoi 

Toshiba ya ha iniciado en 
España la comercializa- 
ción efectiva del teclado 
musical HX-MU901. Con este 
teclado, tanto el músico profesio- 
nal como el aficionado, pueden 
componer y grabar música 
Mediante su multisensor. 



sólo basta con deslizar el dedo 
sobre él para grabar la música 
y observar su fluir por la pan- 
talla del monitor. En modo 
normal se pueden interpretar 
canciones obteniendo el soni- 
do de un solo Instrumento, 
siendo posible tocar hasta 
ocho notas conjuntas y usar 
las funciones de sostenido y vi- 
brato. Al mismo tiempo se pue- 



de dividir el teclado en dos sec- 
ciones, asignando sonidos di- 
ferentes a cada una. Al mismo 
tiempo el usuario puede em- 
plear cualquiera de los 68 so- 
nidos disponibles para la uni- 
dad de sintetizaclón del siste- 
ma de música MSX. El precio 
aproximado de este periférico 
es de unas 36.600 pts. más el 
IVA. 




MSX, PROGRAMACION 
BASICA 

Libro de iniciación 

La editorial Paraninfo 
-Magallanes, 25 -38016 
Madrid-, ha editado un 
libro de iniciación para los 
usuarios del MSX, Se trata de 
«MSX, Programación Básica», 
de Jonathan Pearce y Graham 
Bland que introduce al nuevo 
usuario en los conocimienos 
báslcoB para la programación 
en el Basic Extendido. Entre 
los puntos principales de su 
índice destacamos «Cómo pro- 
gramar en MSX-BASIC», «Có- 
mo trabajar con números», 
«Cómo lnteractuar con sus 
programas» y «Música y Soni- 
do en el MSX». 

«MSX, PROGRAMACION 
BASICA» es un libro intere- 
sante y redactado con un estilo 
directo y sencillo. 



TRUCOS DEL 




VARIACIONES Al VOLCADO 
DE PANTALLA 

Después de comprobar el gran éxito 
del programa de volcado de pantalla, 
Rubén Jiménez ha realizado dos intere- 
santes variantes. Al primero lo llama 
COPY-2 y hace volcado de pantalla en 
SCREEN 1 con los caracteres redefini- 
dos. El segundo es COPY-3 que hace 
volcados de pantallas de forma horizon- 
tal, aunque es mucho más lento, pues 
para copiar la pantalla necesita modifi- 
car todos los bits de ésta (unos 48500 
más o menos). Como en Copy-LPRINT 
hay que añadir un CLEAR 200,60999 al 
principio del programa del usuario. 

El programa COPY-3 puede copiar 
las pantallas en negativo o en positivo, 
para lo cual hay que poner la linea que 
corresponda. 

Para negativo: 65080 IF CL% 
<>CF% TREN Bl$ = Bl$+"1" ELSE 
BI$=BI$+ "0" 

Para positivo: 65080 IF CL% 
<>CF% THEN Bl$ - BI$+"0" ELSE 
BI$=BI$+ "1" 




Copy LPRINT Tiempo 3 mía. 45 reg. 



65000 'C0PY-2RUBEN JIMENEZ 

6501 8 BA=BASE 1 5 ) : BOBASE ( 7 ) : TN=BA*3 1 

45121 LPRINT CKR«<27)j"8';SPACE«(7)j 

' i 1 1* 

65030 FOR LW TO 32 
65040 LPRlHTSPflCE*(7) 5 -|"; 



45058 LPRINT CHR*t27> :*5*("íl?2' 
45040 FOR CD=TN TO TN+734 STEP32 
45078 BB=(BC+tVPEEK(CO)tB) ) 
45080 FOR CH=BB TO BB+7 
45090 LPRINT CHR* (VPEEK(CH) ) ¡ 
451IÍ NEJT CH,CO:LPRINT"l"::LPRINT 
45118 TN=TN-1:NEJTLI 

45128 LPRINTSPACE«!7)¡" 

, ■¡CHR$(27)¡■A■ 

65130 RETURN 




COPY 3. TIEMPO 15 mln. 30 «•«. EFECTO 
EN POSITIVO 

45888 'COPY-3 RUBEN JIMENEZ (l?Bé) 

65810 FOR CO¡=6I000!TO 41254! 

45820 P0KEC0',8¡NEn 

65838 B»=":P0'=6lBB8! 

45840 FDRLl!=0TO23 

65050 FORCOZ=0TO255 

45048 FORCHI=7TO0STEP-1 

45878 CLI=P0INT (COJ, LIÍtBtCHIl :CFS=PEEK 

(IHF3EA) 

45888 IFCL!< >CFITHENBI*=BI«+" l "ELSEBI«= 

65098 NEXT ' w P ' ' 

65 100 POKEPO ! , VAL t ' IB ■ t B If^ " 1 : PO ! =P0 ! ♦ l 

65H0 NEJT:PO!=6l000! 

65120 LPRINTCHR*(27);*B";CHR«(27t;"S";" 

256" 

45130 FORCD!=6l000!TO4l256! 

65140 FE1=PEEK(C0):IFFEZ=9THENFEI=B 

65158 LPRINTCHR«tFEI): 

45140 NEXT 

45170 LPRINT 

45180 NEJT 

45198 LPRINTCHR«(27l i , A 1 :RETURN 




CLDÍOGHAMAS 



Este pequeño programa puede ser 
muy útil para los estudiantes que están 
aprendiendo a hacer climogramas. Las 
variables son las siguientes: 

M$ (I) - Meses del año para los INPUT 
T (I) - Temperatura 
P (I) - Precipitación 
O - Contador del eje de los "Y" preci- 
pitaciones 

P - Contador del eje de los "Y" p/tem- 
peratura 

Para mejorar el programa se puede 
localizar cuando las precipitaciones son 
menores que la temperatura y así colo- 
rear los meses secos. 



10 REM CLIMOGRAMAS 

20 COLOR, 1,1 

30 CLS: LOCATE, 10: 

PRINT-INTRODUCE LOS 
DATOS SEGUN SE TE PIDEN 
SEPARANDO CON COMAS 
LAS TEMPERATURAS DE 
LAS PRECIPITACIONES" 

40 IF INKEYS ""THEN 40 ELSE 
CLS 

50 DIMT|12),P(12), M$(12l 
60 FOR 11 T012:READM$(1) 
70 DATA ENERO, FEBRERO, 
MARZO, ABRIL, MAYO, 
JUNIO, JULIO, AGOSTO, 
SEPTIEMBRE, OCTUBRE, 
NOVIEMBRE, DICIEMBRE 
80 NEXT I: PRINT: PRINT 
SO PRINT: PRINT 
100 FOR I 1 T0 12 
110 PRINT MS (I);: INPUT Til), 



"PULSA UNA TECLA..." 
130 IF INKEYS ""THEN 130 
140 REM REPRESENTACION 

GRAFICA 
1 50 CLS: OPEN "ORP: "AS#1 : 

SCREEN 2:W = -5 
160 FORI177TO30STEP20: 

w=w+5 
170 PSET (10,1), 1: PRINT 11, 

USING" ;W;: PSET (30, 

1-2), 1 : PRINT* 1 , "o": NEXT 



I: I 



10 



180 FOR K 177TO0STEP 

20: M M 10 
190 PSET (232, K), 1: PRINT 

#1,"-":PSET (230, K), 1: 

PRINT 11, M: NEXT K 
200 LINE(36,0) (232,180), 15, B 
210 LINE (36,0) (232,0), 1 
220 DRAW"BM43,1 83": PRINT 

• 1 , "E F M A M J J A S O N D" 
230 P 30: FOR I 1 TO 11: 

P=P+16 
240 LINE (P. 180 T(l)*3) 

(P+16.180-T (I , 1 )*3), 16: 

NEXT I: O 22 
250 FOR 1=1 TO 12:0=0+16 
260 LINE (0,180) (O 16, 

270 OO 0 TO P 2 , 7*0 2, - 15 - B!NEXTI 
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lliilips MSX-2 

H oiikuadoi- miilliiiso pai-a el liotiar y la olían;!. 



El nuevo Philips MSX-2 es un sistema completo 
que atraerá a un gran número de personas que usan 
ordenadores en casa. 

Personas tales como el ejecutivo que lleva 
trabajo a casa, el empleado autónomo, estudiantes 
y secretarias. 

El conjunto entre el avanzado ordenador VG 8235 
y nuestro paquete de software, cubren la mayoría de 
las grandes áreas de aplicaciones productivas. Philips 
MSX-2 le ofrece un gran sistema a un precio muy 
atractivo. 

El ordenador VG 8235 

El primero de la nueva gama de modelos MSX-2, 
el VG 8235, incorpora una unidad de disco de 3,5" 
con una capacidad de 360 Kb, 256 Kb RAM, pantalla 
de 80 columnas y funciones realzadas de color 
y gráficos. 

Interfaces Incorporados para Impresora, ledo- 
grabadora y unidad de disco adicional, salida 
de monitor y TV, conectares de entrada/salida para 
joysticks, ratón y tableta gráfica y 2 ranuras para 
cartuchos ROM/RAM. 

Paquete de software para la oficina en casa 

El software de Philips "Home Office", que 
acompaña al MSX-2, está separado en 2 paquetes: 

MSX Editor: Un paquete de procesador de textos 
profesional para preparación de alta calidad de 
todo tipo de documentación, como correspondencia 
e informes. 




MSX Filer: Un programa de base de datos para un 
rápido y eficiente almacenaje y recuperación 
de información, tal como nombres, direcciones 
y números de teléfono. 

MSX Editor y MSX Filer pueden usarse en 
combinación para aplicaciones de correo 
personalizado o similares. 

Además, Philips ofrece un tercer programa con el 
MSX-2 llamado MSX Deslgner. 

Es un sofisticado paquete de gráficos con Menú- 
directorio que permite al usuario mezclar color 
o diseños monocromos con textos, usando el teclado, 
ratón o tableta de gráficos. 

Ascendencia total de compatibilidad MSX 

Philips MSX garantiza la total compatibilidad 
en ascenso, permitiendo que todos los periféricos 
MSX y software se utilicen con el Philips MSX-2. 



Philips MSX-2: El sistema completo para 
las aplicaciones de la oficina en casa. 



Servicio de información al simpatizante y usuario. 
Tels. (91)413 21 61 413 22 46 



PHILIPS 



